October 2006 - cello-cvs@common-lisp.net - mailman3.common-lisp.net

[cello-cvs] CVS cello/kt-opengl
by fgoenninger 01 Oct '06

01 Oct '06

Update of /project/cello/cvsroot/cello/kt-opengl In directory clnet:/tmp/cvs-serv20668 Modified Files: ogl-utils.lisp Log Message: Code cleanup. Added: Type declarations and compiler directives. --- /project/cello/cvsroot/cello/kt-opengl/ogl-utils.lisp 2006/10/01 12:30:14 1.7 +++ /project/cello/cvsroot/cello/kt-opengl/ogl-utils.lisp 2006/10/01 20:44:22 1.8 @@ -22,10 +22,82 @@ ;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS ;;; IN THE SOFTWARE. -;;; $Id: ogl-utils.lisp,v 1.7 2006/10/01 12:30:14 fgoenninger Exp $ +;;; $Id: ogl-utils.lisp,v 1.8 2006/10/01 20:44:22 fgoenninger Exp $ + +(declaim (optimize (debug 1) (speed 3) (safety 1) (compilation-speed 0))) (in-package :kt-opengl) +;;; =========================================================================== +;;; SPECIAL / GLOBAL VARS +;;; =========================================================================== + +(defparameter *textures-1* (fgn-alloc 'gluint 1 :ignore)) +(defparameter *new-listing* nil) + +(defparameter *dbg-viewport-r* (fgn-alloc 'glint 4 :ignore)) + +;;; =========================================================================== +;;; DATA STRUCTURES / DATA DEFINITIONS +;;; =========================================================================== + +(defstruct v3i + (x :type GLint) + (y :type GLint) + (z :type GLint)) + +(defstruct v3f + (x :type GLfloat) + (y :type GLfloat) + (z :type GLfloat)) + +(defstruct v3d + (x :type GLdouble) + (y :type GLdouble) + (z :type GLdouble)) + +;;; =========================================================================== +;;; FUNCTIONS +;;; =========================================================================== + +;;; --------------------------------------------------------------------------- +;;; CONSTRUCTORS +;;; --------------------------------------------------------------------------- + +(defun mk-vertex3i (x y z) + (make-v3i :x x :y y :z z)) + +(defun mk-vertex3f (x y z) + (make-v3f :x x :y y :z z)) + +(defun mk-vertex3d (x y z) + (make-v3d :x x :y y :z z)) + +(defmacro mkv3i (v3i-lists) + `(mapcar #'(lambda (vtx) + (mk-vertex3i (first vtx) + (second vtx) + (third vtx))) + ',v3i-lists)) + +(defmacro mkv3f (v3f-lists) + `(mapcar #'(lambda (vtx) + (mk-vertex3f (first vtx) + (second vtx) + (third vtx))) + ',v3f-lists)) + +(defmacro mkv3d (v3d-lists) + `(mapcar #'(lambda (vtx) + (mk-vertex3d (first vtx) + (second vtx) + (third vtx))) + ',v3d-lists)) + +;;; --------------------------------------------------------------------------- +;;; TEXTURE SUPPORT +;;; --------------------------------------------------------------------------- + (defun ogl-tex-activate (tex-name) (assert tex-name) ;;(print `(ogl-tex-activate doing ,tex-name)) @@ -33,8 +105,6 @@ (gl-bind-texture gl_texture_2d tex-name) (gl-polygon-mode gl_front_and_back gl_fill)) ;; just front ? -(defparameter *textures-1* (fgn-alloc 'gluint 1 :ignore)) - (defun ogl-texture-delete (texture-name) ;;(print `(deleting-tx ,texture-name)) (setf (ff-elt *textures-1* gluint 0) texture-name) @@ -86,7 +156,6 @@ (gl-get-integerv gl_scissor_box box) box)) -(ukt::export! ogl-current-color) (defun ogl-current-color () (let ((rgba (fgn-alloc 'glint 4 :ogl-current-color))) (gl-get-integerv gl_current_color rgba) @@ -98,34 +167,38 @@ (defun farther (&rest values) (apply '- values)) + (defun xlin (&rest values) ;; yep. moves matrix, not object (apply '+ values)) (defun nearer (&rest values) (apply '+ values)) + (defun xlout (&rest values) ;; yep. moves matrix, not object (apply '- values)) (defun ncalc-normalf(v0x v0y v0z v1x v1y v1z v2x v2y v2z &aux d0x d0y d0z d1x d1y d1z) + (declare (type GLfloat + v0x v0y v0z v1x v1y v1z v2x v2y v2z + d0x d0y d0z d1x d1y d1z)) + (setf d0x (- v1x v0x) - d0y (- v1y v0y) - d0z (- v1z v0z)) + d0y (- v1y v0y) + d0z (- v1z v0z)) (setf d1x (- v2x v1x) - d1y (- v2y v1y) - d1z (- v2z v1z)) + d1y (- v2y v1y) + d1z (- v2z v1z)) (xgl-normalize-v3f (- (* d0y d1z) (* d0z d1y)) (- (* d0z d1x) (* d0x d1z)) (- (* d0x d1y) (* d0y d1x)))) - -(defstruct v3f - (x 0)(y 0)(z 0)) - (defun xgl-normalize-v3f (x y z) + (declare (type GLfloat x y z)) + (let ((m2 (+ (* x x) (* y y) (* z z)))) (if (zerop m2) (values x y z) @@ -134,11 +207,6 @@ ;;(cells::count-it :normalize-3f) (values (+ (/ x m)) (+ (/ y m)) (+ (/ z m))))))) -;;;(cffi-uffi-compat:def-foreign-type bool* (* glboolean)) -;;; -;;;#-lispworks -;;;(declaim (type bool* *ogl-boolean*)) - (defparameter *ogl-boolean* (fgn-alloc 'glboolean 1 :ignore)) @@ -146,11 +214,6 @@ (gl-get-booleanv gl-code *ogl-boolean*) (not (zerop (cffi-uffi-compat:deref-array *ogl-boolean* '(:array glboolean) 0)))) -;;;(cffi-uffi-compat:def-foreign-type glint* (* glint)) -;;; -;;;#-lispworks -;;;(declaim (type glint* *ogl-int*)) - (defparameter *ogl-int* (fgn-alloc 'glint 1 :ignore)) @@ -168,9 +231,6 @@ (gl-get-integerv gl-code *ogl-int*) (eltgli *ogl-int* 0)) -(defparameter *dbg-viewport-r* - (fgn-alloc 'glint 4 :ignore)) - (defun dump-viewport (key) (gl-get-integerv gl_viewport *dbg-viewport-r*) (format t "~&dump-viewport> ~a: ~a" key @@ -245,8 +305,6 @@ (loop for (key . list) in (ogl-list-cache node) do (format t "~d : ~a" list key))) -(defparameter *new-listing* nil) - (defun flatten (&rest args) (mapcan (lambda (arg) (if (consp arg)

1 0

[cello-cvs] CVS cello/kt-opengl
by fgoenninger 01 Oct '06

01 Oct '06

Update of /project/cello/cvsroot/cello/kt-opengl In directory clnet:/tmp/cvs-serv20427 Modified Files: ogl-macros.lisp Log Message: Code cleanup. --- /project/cello/cvsroot/cello/kt-opengl/ogl-macros.lisp 2006/10/01 12:30:01 1.9 +++ /project/cello/cvsroot/cello/kt-opengl/ogl-macros.lisp 2006/10/01 20:42:51 1.10 @@ -93,6 +93,10 @@ (gl-pop-client-attrib) (glec :with-client-attrib-pop))) +(defmacro with-ogl-isolation (&body body) + `(with-attrib (gl_lighting_bit gl_texture_bit gl_enable_bit gl_hint_bit gl_line_bit gl_color_buffer_bit) + ,@body)) + (defvar *gl-begun*) (defvar *gl-stop*)

1 0

[cello-cvs] CVS cello
by fgoenninger 01 Oct '06

01 Oct '06

Update of /project/cello/cvsroot/cello In directory clnet:/tmp/cvs-serv20281 Modified Files: cello.lisp Log Message: Added: Exports for ct-... symbols. --- /project/cello/cvsroot/cello/cello.lisp 2006/08/28 21:45:22 1.12 +++ /project/cello/cvsroot/cello/cello.lisp 2006/10/01 20:41:53 1.13 @@ -15,7 +15,7 @@ |# -;;; $Id: cello.lisp,v 1.12 2006/08/28 21:45:22 ktilton Exp $ +;;; $Id: cello.lisp,v 1.13 2006/10/01 20:41:53 fgoenninger Exp $ ;;; ============================================================================ @@ -37,11 +37,34 @@ #:cl-openal #:cl-ftgl #:cl-magick) + (:export + #:cello-window #:cello-window-event-handler #:with-layers #:visible + + #:ct-button + #:ct-drag + #:ct-poly-drag + #:ct-mark-box + #:ct-radio-item + #:ct-radio-button + #:ct-text-radio-item + #:ct-radio + #:ct-radio-row + #:ct-radio-stack + #:ct-radio-push-button + #:ct-push-toggle + #:ct-selector + #:ct-selector-inline + #:ct-selectable + #:ct-text + #:ct-toggle + #:ct-twister + #:ct-jumper + #:ix-togl)) ;;; ============================================================================

1 0

[cello-cvs] CVS cello/kt-opengl
by fgoenninger 01 Oct '06

01 Oct '06

Update of /project/cello/cvsroot/cello/kt-opengl In directory clnet:/tmp/cvs-serv20208 Modified Files: kt-opengl.lisp Log Message: Code cleanup. --- /project/cello/cvsroot/cello/kt-opengl/kt-opengl.lisp 2006/10/01 13:03:32 1.8 +++ /project/cello/cvsroot/cello/kt-opengl/kt-opengl.lisp 2006/10/01 13:41:30 1.9 @@ -21,83 +21,7 @@ ;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS ;;; IN THE SOFTWARE. -;;; $Id: kt-opengl.lisp,v 1.8 2006/10/01 13:03:32 fgoenninger Exp $ - -(pushnew :kt-opengl *features*) - -(defpackage #:kt-opengl - (:nicknames #:ogl) - (:use #:common-lisp #:cffi #:ffx) - (:export - - #:kt-opengl-init - #:kt-opengl-reset - #:glec - - #:*ogl-listing-p* - #:*selecting* - - #:with-matrix - #:with-attrib - #:with-client-attrib - #:with-gl-begun - #:with-gl-param - #:with-bitmap-shifted - #:with-gl-parami - #:with-gl-paramf - #:with-gl-paramd - #:with-gl-integers - #:with-gl-floats - #:with-gl-doubles - #:with-display-list - #:with-gl-translation - - #:gl-pushm - #:gl-popm - - #:closed-stream-p - - #:ncalc-normalf - #:ncalc-normalfv - - #:ogl-get-int - #:ogl-get-boolean - - #:v3f - #:make-v3f - #:v3f-x - #:v3f-y - #:v3f-z - - #:xlin - #:xlout - #:farther - #:nearer - - #:texture-name - #:ogl-texture - #:ogl-texture-gen - #:ogl-texture-delete - #:ogl-tex-gen-setup - #:ogl-tex-activate - - #:ogl-bounds - #:ogl-scissor-box - #:ogl-raster-pos-get - - #:ogl-pen-move - - #:ogl-list-cache - #:ogl-lists-delete - - #:eltgli - - #:gl-name - - #:gl-get-integers - #:gl-get-floats - #:gl-get-doubles - )) +;;; $Id: kt-opengl.lisp,v 1.9 2006/10/01 13:41:30 fgoenninger Exp $ (in-package :kt-opengl)

1 0

[cello-cvs] CVS cello/kt-opengl
by fgoenninger 01 Oct '06

01 Oct '06

Update of /project/cello/cvsroot/cello/kt-opengl In directory clnet:/tmp/cvs-serv14796 Modified Files: kt-opengl.lisp Log Message: Code cleanup. --- /project/cello/cvsroot/cello/kt-opengl/kt-opengl.lisp 2006/10/01 12:29:44 1.7 +++ /project/cello/cvsroot/cello/kt-opengl/kt-opengl.lisp 2006/10/01 13:03:32 1.8 @@ -21,7 +21,7 @@ ;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS ;;; IN THE SOFTWARE. -;;; $Id: kt-opengl.lisp,v 1.7 2006/10/01 12:29:44 fgoenninger Exp $ +;;; $Id: kt-opengl.lisp,v 1.8 2006/10/01 13:03:32 fgoenninger Exp $ (pushnew :kt-opengl *features*) @@ -127,25 +127,3 @@ when (zerop ec) do (cells::trc "kt-opengl-reset sees zero error code") (loop-finish) do (cells::trc "kt-opengl-init sees error" ec))) - -(defun gl-boolean-test (value) - #+allegro (not (eql value #\null)) - #-allegro (not (zerop value))) - -(defun dump-lists (min max) - (loop with start - and end - for lx from min to max - when (let ((is (gl-is-list lx))) - (when (gl-boolean-test is) - (print (list "dl test" lx is (char-code is)))) - (gl-boolean-test is)) - do (if start - (if end - (if (eql lx (1+ end)) - (setf end lx) - (print `(gl ,start to ,end))) - (if (eql lx (1+ start)) - (setf end lx) - (print `(gl ,start)))) - (setf start lx))))

1 0

[cello-cvs] CVS cello/kt-opengl
by fgoenninger 01 Oct '06

01 Oct '06

Update of /project/cello/cvsroot/cello/kt-opengl In directory clnet:/tmp/cvs-serv9580 Modified Files: ogl-utils.lisp Log Message: Code cleanup. --- /project/cello/cvsroot/cello/kt-opengl/ogl-utils.lisp 2006/08/28 18:36:40 1.6 +++ /project/cello/cvsroot/cello/kt-opengl/ogl-utils.lisp 2006/10/01 12:30:14 1.7 @@ -22,7 +22,7 @@ ;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS ;;; IN THE SOFTWARE. -;;; $Id: ogl-utils.lisp,v 1.6 2006/08/28 18:36:40 fgoenninger Exp $ +;;; $Id: ogl-utils.lisp,v 1.7 2006/10/01 12:30:14 fgoenninger Exp $ (in-package :kt-opengl) @@ -252,3 +252,25 @@ (if (consp arg) (mapcan 'flatten arg) (list arg))) args)) + +(defun gl-boolean-test (value) + #+allegro (not (eql value #\null)) + #-allegro (not (zerop value))) + +(defun dump-lists (min max) + (loop with start + and end + for lx from min to max + when (let ((is (gl-is-list lx))) + (when (gl-boolean-test is) + (print (list "dl test" lx is (char-code is)))) + (gl-boolean-test is)) + do (if start + (if end + (if (eql lx (1+ end)) + (setf end lx) + (print `(gl ,start to ,end))) + (if (eql lx (1+ start)) + (setf end lx) + (print `(gl ,start)))) + (setf start lx))))

1 0

[cello-cvs] CVS cello/kt-opengl
by fgoenninger 01 Oct '06

01 Oct '06

Update of /project/cello/cvsroot/cello/kt-opengl In directory clnet:/tmp/cvs-serv9463 Modified Files: ogl-macros.lisp Log Message: Code cleanup. --- /project/cello/cvsroot/cello/kt-opengl/ogl-macros.lisp 2006/08/28 21:45:28 1.8 +++ /project/cello/cvsroot/cello/kt-opengl/ogl-macros.lisp 2006/10/01 12:30:01 1.9 @@ -24,9 +24,6 @@ (in-package :kt-opengl) -(eval-when (:compile-toplevel :load-toplevel :execute) - (export '(with-gl-translation))) - (defvar *stack-depth* (fgn-alloc :int 1 :ignore)) @@ -127,15 +124,6 @@ ,@body (gl-translatef (- ,dx)(- ,dy)(- ,dz)))))) - - -(defun kt-opengl-reset () - (loop for ec = (glgeterror) - for n below 10 - when (zerop ec) do (cells::trc "kt-opengl-reset sees zero error code") - (loop-finish) - do (cells::trc "kt-opengl-init sees error" ec))) - (defun glec (&optional (id :anon) announce-success) (if (and (boundp '*gl-begun*) *gl-begun*) (progn (cells:trc nil "not checking error inside gl.begin" id))

1 0

[cello-cvs] CVS cello/kt-opengl
by fgoenninger 01 Oct '06

01 Oct '06

Update of /project/cello/cvsroot/cello/kt-opengl In directory clnet:/tmp/cvs-serv9432 Modified Files: kt-opengl.lisp Log Message: Code cleanup. --- /project/cello/cvsroot/cello/kt-opengl/kt-opengl.lisp 2006/08/28 21:45:27 1.6 +++ /project/cello/cvsroot/cello/kt-opengl/kt-opengl.lisp 2006/10/01 12:29:44 1.7 @@ -21,86 +21,88 @@ ;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS ;;; IN THE SOFTWARE. -;;; $Id: kt-opengl.lisp,v 1.6 2006/08/28 21:45:27 ktilton Exp $ +;;; $Id: kt-opengl.lisp,v 1.7 2006/10/01 12:29:44 fgoenninger Exp $ (pushnew :kt-opengl *features*) (defpackage #:kt-opengl (:nicknames #:ogl) (:use #:common-lisp #:cffi #:ffx) - (:export #:*ogl-listing-p* - #:glut-get-window - #:glut-set-window - #:glut-post-redisplay + (:export + + #:kt-opengl-init + #:kt-opengl-reset + #:glec + + #:*ogl-listing-p* + #:*selecting* + #:with-matrix #:with-attrib #:with-client-attrib #:with-gl-begun + #:with-gl-param + #:with-bitmap-shifted + #:with-gl-parami + #:with-gl-paramf + #:with-gl-paramd + #:with-gl-integers + #:with-gl-floats + #:with-gl-doubles + #:with-display-list + #:with-gl-translation + #:gl-pushm #:gl-popm - #:glut-callback-set - #:kt-opengl-init + #:closed-stream-p - #:*selecting* - #:kt-opengl-reset - #:kt-opengl-set-home-dir - #:kt-opengl-get-home-dir - #:cl-glut-set-home-dir - #:cl-glut-get-home-dir - #:kt-opengl-set-gl-dll-filename - #:kt-opengl-get-gl-dll-filename - #:kt-opengl-set-glu-dll-filename - #:kt-opengl-get-glu-dll-filename - #:cl-glut-set-dll-filename - #:cl-glut-get-dll-filename + + #:ncalc-normalf + #:ncalc-normalfv + + #:ogl-get-int + #:ogl-get-boolean + + #:v3f + #:make-v3f + #:v3f-x + #:v3f-y + #:v3f-z + + #:xlin + #:xlout + #:farther + #:nearer + + #:texture-name #:ogl-texture - #:ncalc-normalf #:ncalc-normalfv #:ogl-get-int #:ogl-get-boolean - #:v3f #:make-v3f #:v3f-x #:v3f-y #:v3f-z - #:with-gl-param #:xlin #:xlout - #:farther #:nearer - #:ogl-texture-delete #:ogl-texture-gen #:ogl-tex-gen-setup - #:ogl-bounds #:ogl-scissor-box #:ogl-raster-pos-get - #:ogl-pen-move #:with-bitmap-shifted - #:texture-name #:ogl-list-cache #:ogl-lists-delete - #:eltgli #:ogl-tex-activate #:gl-name #:glec + #:ogl-texture-gen + #:ogl-texture-delete + #:ogl-tex-gen-setup + #:ogl-tex-activate + + #:ogl-bounds + #:ogl-scissor-box + #:ogl-raster-pos-get + + #:ogl-pen-move + + #:ogl-list-cache + #:ogl-lists-delete + + #:eltgli + + #:gl-name #:gl-get-integers #:gl-get-floats #:gl-get-doubles - #:with-gl-parami - #:with-gl-paramf - #:with-gl-paramd - #:with-gl-integers - #:with-gl-floats - #:with-gl-doubles - #:with-display-list )) (in-package :kt-opengl) (defvar *selecting*) -(defparameter *win32-opengl-loc* (namestring - (make-pathname - ;;#+lispworks :host #-lispworks :device "c" - :directory '(:absolute "windows" "system32") - :name "opengl32" - :type "dll"))) - -(defparameter *win32-glu-loc* (namestring - (make-pathname - ;;#+lispworks :host #-lispworks :device "c" - :directory '(:absolute "windows" "system32") - :name "opengl32" - :type "dll"))) - -(define-foreign-library OpenGL - (:windows (:or "/windows/system32/opengl32.dll")) - (:darwin (:or (:framework "OpenGL")))) - -(define-foreign-library GLU - (:windows (:or "/windows/system32/glu32.dll"))) - (defparameter *opengl-dll* nil) (defun kt-opengl-init () @@ -119,6 +121,13 @@ (eval-when (:load-toplevel :execute) (kt-opengl-init)) +(defun kt-opengl-reset () + (loop for ec = (glgeterror) + for n below 10 + when (zerop ec) do (cells::trc "kt-opengl-reset sees zero error code") + (loop-finish) + do (cells::trc "kt-opengl-init sees error" ec))) + (defun gl-boolean-test (value) #+allegro (not (eql value #\null)) #-allegro (not (zerop value)))

1 0

[cello-cvs] CVS cello/kt-opengl
by fgoenninger 01 Oct '06

01 Oct '06

Update of /project/cello/cvsroot/cello/kt-opengl In directory clnet:/tmp/cvs-serv9393 Modified Files: kt-opengl.asd Log Message: Added: New files defpackage and kt-opengl-config. --- /project/cello/cvsroot/cello/kt-opengl/kt-opengl.asd 2006/09/16 19:17:09 1.3 +++ /project/cello/cvsroot/cello/kt-opengl/kt-opengl.asd 2006/10/01 12:29:24 1.4 @@ -15,7 +15,9 @@ :long-description "Poorly implemented bindings to half of OpenGL" :depends-on (:cffi-extender :cells) :serial t - :components ((:file "kt-opengl") + :components ((:file "defpackage") + (:file "kt-opengl-config") + (:file "kt-opengl") (:file "gl-def") (:file "gl-constants") (:file "gl-functions")

1 0

[cello-cvs] CVS cello/kt-opengl
by fgoenninger 01 Oct '06

01 Oct '06

Update of /project/cello/cvsroot/cello/kt-opengl In directory clnet:/tmp/cvs-serv9341 Added Files: defpackage.lisp Log Message: Added to CVS. --- /project/cello/cvsroot/cello/kt-opengl/defpackage.lisp 2006/10/01 12:28:58 NONE +++ /project/cello/cvsroot/cello/kt-opengl/defpackage.lisp 2006/10/01 12:28:58 1.1 ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*- ;;; ;;; Copyright © 2004 by Kenneth William Tilton. ;;; ;;; Permission is hereby granted, free of charge, to any person obtaining a copy ;;; of this software and associated documentation files (the "Software"), to deal ;;; in the Software without restriction, including without limitation the rights ;;; to use, copy, modify, merge, publish, distribute, sublicense, and/or sell ;;; copies of the Software, and to permit persons to whom the Software is furnished ;;; to do so, subject to the following conditions: ;;; ;;; The above copyright notice and this permission notice shall be included in ;;; all copies or substantial portions of the Software. ;;; ;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR ;;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, ;;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE ;;; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER ;;; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING ;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS ;;; IN THE SOFTWARE. ;;; $Id: defpackage.lisp,v 1.1 2006/10/01 12:28:58 fgoenninger Exp $ (pushnew :kt-opengl *features*) (defpackage #:kt-opengl (:nicknames #:ogl) (:use #:common-lisp #:cffi #:ffx) (:export #:kt-opengl-init #:kt-opengl-reset #:glec #:*ogl-listing-p* #:*selecting* #:with-matrix #:with-attrib #:with-client-attrib #:with-gl-begun #:with-gl-param #:with-bitmap-shifted #:with-gl-parami #:with-gl-paramf #:with-gl-paramd #:with-gl-integers #:with-gl-floats #:with-gl-doubles #:with-display-list #:with-gl-translation #:gl-pushm #:gl-popm #:closed-stream-p #:ncalc-normalf #:ncalc-normalfv #:ogl-get-int #:ogl-get-boolean #:v3f #:make-v3f #:v3f-x #:v3f-y #:v3f-z #:xlin #:xlout #:farther #:nearer #:texture-name #:ogl-texture #:ogl-texture-gen #:ogl-texture-delete #:ogl-tex-gen-setup #:ogl-tex-activate #:ogl-bounds #:ogl-scissor-box #:ogl-raster-pos-get #:ogl-pen-move #:ogl-list-cache #:ogl-lists-delete #:eltgli #:gl-name #:gl-get-integers #:gl-get-floats #:gl-get-doubles ))

1 0