[cells-cvs] CVS update: cell-cultures/cl-ftgl/cl-ftgl.lisp

[Kenny Tilton]

Update of /project/cells/cvsroot/cell-cultures/cl-ftgl
In directory common-lisp.net:/tmp/cvs-serv19757/cl-ftgl

Modified Files:
	cl-ftgl.lisp 
Log Message:
Patches to support cells-gtk; ongoing glut refinements cello osx port
Date: Wed Nov 17 13:31:37 2004
Author: ktilton

Index: cell-cultures/cl-ftgl/cl-ftgl.lisp
diff -u cell-cultures/cl-ftgl/cl-ftgl.lisp:1.5 cell-cultures/cl-ftgl/cl-ftgl.lisp:1.6
--- cell-cultures/cl-ftgl/cl-ftgl.lisp:1.5	Thu Oct 28 02:09:16 2004
+++ cell-cultures/cl-ftgl/cl-ftgl.lisp	Wed Nov 17 13:31:36 2004
@@ -20,7 +20,7 @@
 ;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS 
 ;;; IN THE SOFTWARE.
 
-;;; $Header: /project/cells/cvsroot/cell-cultures/cl-ftgl/cl-ftgl.lisp,v 1.5 2004/10/28 00:09:16 ktilton Exp $
+;;; $Header: /project/cells/cvsroot/cell-cultures/cl-ftgl/cl-ftgl.lisp,v 1.6 2004/11/17 12:31:36 ktilton Exp $
 
 (defpackage #:cl-ftgl
   (:nicknames #:ftgl)
@@ -112,7 +112,18 @@
 ;; FOREIGN FUNCTION INTERFACE
 ;; ----------------------------------------------------------------------------
 
-(defun-ffx :unsigned-byte "ftgl" "fgcSetFaceSize" (:void *f :int size :int res))
+
+;; (defun-ffx :unsigned-byte "ftgl" "fgcSetFaceSize" (:void *f :int size :int res))
+
+(PROGN (UFFI:DEF-FUNCTION ("fgcSetFaceSize" FGCSETFACESIZE)
+                          ((*F (* :VOID)) (SIZE :INT) (RES :INT)) :RETURNING :UNSIGNED-BYTE
+                          :MODULE "ftgl")
+       (DEFUN FGC-SET-FACE-SIZE (*F SIZE RES)
+         (LET ( (c-SIZE (COERCE SIZE 'INTEGER)) (c-RES (COERCE RES 'INTEGER)))
+           (print (list `(FGC-SET-FACE-SIZE ,*f ,c-size ,c-res)))
+           (PROG1 (FGCSETFACESIZE *F c-SIZE c-RES))))
+       (EVAL-WHEN (COMPILE EVAL LOAD) (EXPORT '(FGCSETFACESIZE FGC-SET-FACE-SIZE))))
+
 (defun-ffx :int "ftgl" "fgcCharTexture" (:void *f :int charCode))
 (defun-ffx :float "ftgl" "fgcAscender" (:void *f))
 (defun-ffx :float "ftgl" "fgcDescender" (:void *f))