(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 +height+ 512) ; must be power of two
draw))
(glut:keyboard-func (callback key))
(glut:main-loop))
(defun reinit ()
(with-foreign-objects ((argcp :int) (argv :pointer))
(setf (mem-ref argcp :int) 1)
(with-foreign-string (str test)
(setf (mem-ref argv :pointer) str)
(glut::%glutInit argcp argv
--
Martin