cello-cvs

cello-cvs@common-lisp.net

227 discussions

[cello-cvs] CVS cello/cl-ftgl
by ktilton 02 Oct '06

02 Oct '06

Update of /project/cello/cvsroot/cello/cl-ftgl In directory clnet:/tmp/cvs-serv27598/cl-ftgl Modified Files: cl-ftgl.lisp Log Message: --- /project/cello/cvsroot/cello/cl-ftgl/cl-ftgl.lisp 2006/09/17 22:39:20 1.14 +++ /project/cello/cvsroot/cello/cl-ftgl/cl-ftgl.lisp 2006/10/02 02:59:18 1.15 @@ -20,7 +20,7 @@ ;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS ;;; IN THE SOFTWARE. -;;; $Header: /project/cello/cvsroot/cello/cl-ftgl/cl-ftgl.lisp,v 1.14 2006/09/17 22:39:20 fgoenninger Exp $ +;;; $Header: /project/cello/cvsroot/cello/cl-ftgl/cl-ftgl.lisp,v 1.15 2006/10/02 02:59:18 ktilton Exp $ (eval-when (:compile-toplevel :load-toplevel) (pushnew :cl-ftgl *features*)) @@ -189,11 +189,6 @@ `(progn #+nahhh (unless (boundp '*gl-begun*) (assert (zerop (glgeterror)))) - #+nahhh (loop for (key . fonts) in (mathx::mp-fonts mathx::*font-node*) - when (eq key 'mathx::mathvar) - do (loop for font across fonts - when (or (eql 12 (ftgl-size font))(ftgl-ifont font)) - do (cells::trc nil "dbgftgl sees ifont" ,tag (ftgl-face font)(ftgl-size font)(ftgl-ifont font)))) (progn ;; cells:wtrc (0 100 "dbgftgl" ,tag) (ftgl-assert-opengl-context) (unless (boundp '*gl-begun*) (glec :dbgftgl-entry)) @@ -259,12 +254,6 @@ (defun dbgfont (font calltag) (declare (ignore font calltag)) -;;; (cells::trc "dbgfont" calltag (ftgl-dbg font) (ftgl-face font)(ftgl-size font)(ftgl-ifont font)) -;;; (unless (find font mathx::*font-node-all*) -;;; (cells::trc "dbgfont unknown!!!!! " calltag ) -;;; (dolist (f mathx::*font-node-all*) -;;; (cells::trc "known" (ftgl-dbg f)(ftgl-face f)(ftgl-size f))) -;;; (break "odd font")) ) (defun ftgl-assert-opengl-context () @@ -408,7 +397,7 @@ (fgc-bitmap-make fpath)) (defmethod fgc-font-make ((font ftgl-texture) fpath) - ;;(format t "~%*** FGC-FONT-MAKE: fpath = ~A~%" fpath) + (format t "~%*** FGC-FONT-MAKE: fpath = ~A~%" fpath) (fgc-texture-make fpath)) (defmethod fgc-font-make ((font ftgl-extruded) fpath) @@ -423,7 +412,8 @@ (fgc-polygon-make fpath)) (defun ftgl-string-length (font cs) - (fgc-string-advance (ftgl-get-metrics-font font) cs)) + (dbgftgl :ftgl-string-length + (fgc-string-advance (ftgl-get-metrics-font font) cs))) (defmethod font-bearing-x (font &optional text) (declare (ignorable font text))

1 0

[cello-cvs] CVS cello/cl-magick
by ktilton 02 Oct '06

02 Oct '06

Update of /project/cello/cvsroot/cello/cl-magick In directory clnet:/tmp/cvs-serv27598/cl-magick Modified Files: cl-magick.lisp wand-image.lisp Log Message: --- /project/cello/cvsroot/cello/cl-magick/cl-magick.lisp 2006/09/05 23:05:37 1.12 +++ /project/cello/cvsroot/cello/cl-magick/cl-magick.lisp 2006/10/02 02:59:18 1.13 @@ -20,7 +20,7 @@ ;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS ;;; IN THE SOFTWARE. -;;; $Id: cl-magick.lisp,v 1.12 2006/09/05 23:05:37 ktilton Exp $ +;;; $Id: cl-magick.lisp,v 1.13 2006/10/02 02:59:18 ktilton Exp $ (defpackage :cl-magick @@ -109,14 +109,14 @@ (when file-path$ (cl-magick-init) (let ((key (list* wand-type (namestring file-path$) iargs))) - (or (let ((old (cdr (assoc key (wands-loaded) :test 'equal)))) - (when old + (or #+nahhh (let ((old (cdr (assoc key (wands-loaded) :test 'equal)))) + #+shhh (when old (print `(wand-ensure-typed re-using-prior-load ,wand-type ,file-path$))) old) (let ((wi (apply 'make-instance wand-type :file-path$ file-path$ iargs))) - (print `(wand-ensure-typed forced-to-load ,wand-type ,file-path$)) + #+shh (print `(wand-ensure-typed forced-to-load ,wand-type ,file-path$)) (push (cons key wi) (wands-loaded)) wi) (error "Unable to load image file ~a" file-path$))))) @@ -129,3 +129,4 @@ (print `(unloading foreign library ,dll)) (setf *imagick-dll-loaded* nil) (ff:unload-foreign-library dll)))) + --- /project/cello/cvsroot/cello/cl-magick/wand-image.lisp 2006/09/05 23:05:37 1.8 +++ /project/cello/cvsroot/cello/cl-magick/wand-image.lisp 2006/10/02 02:59:18 1.9 @@ -100,8 +100,8 @@ (rows (- last-row first-row)) (pixels (fgn-alloc :unsigned-char (* 3 columns rows) :wand-image))) (assert (not (zerop pixels))() "wand-get-image-pixels > fgn-alloc of ~a bytes failed" (* 3 columns rows)) - (print (list "wand-get-image-pixels got" wand (* 3 columns rows) pixels)) ;; frgo: debug ... - (cells:trc "image format" wand (magick-get-image-format wand)) ;; frgo:debug... + ;;(print (list "wand-get-image-pixels got" wand (* 3 columns rows) pixels)) ;; frgo: debug ... + (cells:trc nil "image format" wand (magick-get-image-format wand)) ;; frgo:debug... ; ; these next two are quite slow thx to FFI I guess ; @@ -115,7 +115,7 @@ (magick-get-image-pixels wand first-col first-row columns rows "RGB" 0 pixels ) ;;(print `(writeimage ,(magick-write-image wand "/tmp/wand-image-test.jpg"))) - (progn + #+shhh (progn ; ; look at a few pixels ;

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-serv21334 Modified Files: ix-opengl.lisp Log Message: Minor change only. Added some comments and code reformatted. --- /project/cello/cvsroot/cello/ix-opengl.lisp 2006/08/28 21:45:22 1.5 +++ /project/cello/cvsroot/cello/ix-opengl.lisp 2006/10/01 20:47:54 1.6 @@ -17,13 +17,20 @@ (in-package :cello) +(export! .og. + .ogc. + ogl-shared-resource-tender + ogl-node + ogl-family + dsp-list) + (defmethod ogl-dsp-list-prep progn (self) (declare (ignore self)) (assert (not *ogl-listing-p*))) (defvar *ogl-shared-resource-tender*) -(defclass ogl-shared-resource-tender () +(defclass ogl-shared-resource-tender () ;; mixin ((display-lists :initform nil :accessor display-lists) (quadrics :initform nil :accessor quadrics) (textures :initform nil :accessor textures))) @@ -44,8 +51,6 @@ (defmethod ogl-node-window (other) (c-break "ogl-node-window undefined for ~a" other)) -(export! .og. .ogc.) - (define-symbol-macro .og. (or (ogl-context self) (setf (ogl-context self) (upper self ctk::togl)))) @@ -55,30 +60,30 @@ (defmodel ogl-node () ((ogl-context :cell nil :initform nil :accessor ogl-context) (dsp-list :initarg :dsp-list :accessor dsp-list - :initform nil #+not (c-formula (:lazy :until-asked) - (assert (not *ogl-listing-p*)) - (progn - (ogl-dsp-list-prep self) - (when (without-c-dependency - (every 'dsp-list (kids self))) - (let ((display-list-name (or .cache - (gl-gen-lists 1))) - (*ogl-shared-resource-tender* - (ogl-shared-resource-tender self))) - (gl-new-list display-list-name gl_compile) - (trc nil "---------------starting display list" display-list-name self) - (let ((*ogl-listing-p* self) - *selecting* *render-clip-l* *render-clip-r* *render-clip-t* *render-clip-b*) - (with-metrics (nil nil "ix-paint" self) - (ix-paint self))) - (trc nil "---------------finished display list" display-list-name self) - (gl-end-list) - (setf (redisplayp .og.) t) - display-list-name))))) + :initform (c-in nil) + #+not (c-formula (:lazy :until-asked) + (assert (not *ogl-listing-p*)) + (progn + (ogl-dsp-list-prep self) + (when (without-c-dependency + (every 'dsp-list (kids self))) + (let ((display-list-name (or .cache + (gl-gen-lists 1))) + (*ogl-shared-resource-tender* + (ogl-shared-resource-tender self))) + (gl-new-list display-list-name gl_compile) + (trc nil "---------------starting display list" display-list-name self) + (let ((*ogl-listing-p* self) + *selecting* *render-clip-l* *render-clip-r* *render-clip-t* *render-clip-b*) + (with-metrics (nil nil "ix-paint" self) + (ix-paint self))) + (trc nil "---------------finished display list" display-list-name self) + (gl-end-list) + (setf (redisplayp .og.) t) + display-list-name))))) (gl-name :initarg :gl-name :initform nil :accessor gl-name))) - (defun render (self) (let (*selecting* *render-clip-l* *render-clip-r* *render-clip-t* *render-clip-b*) (assert (zerop (glgeterror))) @@ -86,12 +91,11 @@ (trc nil "render" self (^height)) (ix-paint self)))) -(defmodel ogl-family () +(defmodel ogl-family () ;; mixin () - (:default-initargs :gl-name (c? (incf (gl-name-highest .w.))) - :clipped nil)) + :clipped nil)) (defobserver dsp-list () (when old-value

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-serv21204 Modified Files: ix-paint.lisp Log Message: Minor change only. Code reformatted. --- /project/cello/cvsroot/cello/ix-paint.lisp 2006/08/28 21:45:22 1.4 +++ /project/cello/cvsroot/cello/ix-paint.lisp 2006/10/01 20:46:51 1.5 @@ -5,7 +5,7 @@ This library is free software; you can redistribute it and/or modify it under the terms of the Lisp Lesser GNU Public License - (http://opensource.franz.com/preamble.html), known as the LLGPL. +(http://opensource.franz.com/preamble.html), known as the LLGPL. This library is distributed WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. @@ -32,15 +32,16 @@ (ogl-raster-pos-get)) (assert (find k (kids self))() "kid ~a no longer amongst kids ~a" k (kids self)) (c-assert (px k) () "pX is null in ~a" k) - (c-assert (py k) () "pY is null in ~a" k) - + (c-assert (py k) () "pY is null in ~a" k) (if (dsp-list k) (progn (count-it :call-list) (trc "ix-paint calling list" (dsp-list k)) - (gl-call-list (dsp-list k))) ; 06/0629 edit caret presences causes INVALID_OP on - ; first run only in a session; just continue from + (gl-call-list (dsp-list k))) ;; 06/06/29 edit caret presences + ;; causes INVALID_OP on + ;; first run only in a session; + ;; just continue from (ix-paint k))))) (defun rpchk (id pfail psucc &optional self)

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-serv21056 Modified Files: ix-togl.lisp Log Message: Minor change only. Code formatted differently. --- /project/cello/cvsroot/cello/ix-togl.lisp 2006/09/05 23:05:36 1.9 +++ /project/cello/cvsroot/cello/ix-togl.lisp 2006/10/01 20:46:00 1.10 @@ -70,17 +70,18 @@ )) (export! .togl) + (define-symbol-macro .togl (nearest self ix-togl)) (defmethod ctk::togl-display-using-class ((self ix-togl)) (unless (or *ogl-listing-p* ;; re-entrance happens if a DLL puts up a MessageBox - (c-stopped)) + (c-stopped)) (with-metrics (nil nil "ctk::togl-display-using-class") - (bif (dl (dsp-list self)) - (progn - (trc "togl display using disp list !!!!" self) - (gl-call-list (dsp-list self))) - (ix-paint self))))) + (bif (dl (dsp-list self)) + (progn + (trc "togl display using disp list !!!!" self) + (gl-call-list (dsp-list self))) + (ix-paint self))))) (defmethod ctk::togl-timer-using-class ((self ix-togl)) (unless (or *ogl-listing-p* ;; re-entrance happens if a DLL puts up a MessageBox

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-serv20896 Modified Files: defpackage.lisp Log Message: Added. Some futher expors of symbols. --- /project/cello/cvsroot/cello/kt-opengl/defpackage.lisp 2006/10/01 12:28:58 1.1 +++ /project/cello/cvsroot/cello/kt-opengl/defpackage.lisp 2006/10/01 20:45:04 1.2 @@ -20,7 +20,7 @@ ;;; 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 $ +;;; $Id: defpackage.lisp,v 1.2 2006/10/01 20:45:04 fgoenninger Exp $ (pushnew :kt-opengl *features*) @@ -50,6 +50,7 @@ #:with-gl-doubles #:with-display-list #:with-gl-translation + #:with-ogl-isolation #:gl-pushm #:gl-popm @@ -62,12 +63,30 @@ #:ogl-get-int #:ogl-get-boolean + #:v3i + #:make-v3i + #:mk-vertex3i + #:v3i-x + #:v3i-y + #:v3i-z + #:mkv3i + #:v3f #:make-v3f + #:mk-vertex3f #:v3f-x #:v3f-y #:v3f-z + #:mkv3f + #:v3d + #:make-v3d + #:mk-vertex3d + #:v3d-x + #:v3d-y + #:v3d-z + #:mkv3d + #:xlin #:xlout #:farther @@ -79,6 +98,8 @@ #:ogl-texture-delete #:ogl-tex-gen-setup #:ogl-tex-activate + + #:ogl-current-color #:ogl-bounds #:ogl-scissor-box

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-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

← Newer
1
2
3
4
5
6
7
8
9
...
23
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

cello-cvs