(glut::%glutInit argcp argv
--
Martin Kielhorn
Randall Division of Cell & Molecular Biophysics
King's College London, New Hunt's House
Guy's Campus, London SE1 1UL, U.K.
tel: +44 (0) 207 848 6519, fax: +44 (0) 207 848 6435
___
cl-opengl-d
signed-short-8-8-rev-mesa
(video-take))
It is quite fast.
Martin Kielhorn
#| use cl-opengl to display some texture |#
(require 'cl-glut)
(defpackage texture-example
(:use :cl))
(in-package texture-example)
(defparameter +width+ 512) ; must be power of two
(defparameter +heigh