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