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