Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Tree: 88aac66c2c
Fetching contributors…

Cannot retrieve contributors at this time

40 lines (33 sloc) 1.077 kB
;;;; -*- Mode: lisp; indent-tabs-mode: nil -*-
(defpackage #:cl-glut-examples
(:use #:cl)
(:export #:list-examples #:run-examples
#:gl-info))
(in-package #:cl-glut-examples)
(defparameter +examples+
'(("Redbook Examples"
rb-double rb-hello #|rb-varray|# rb-lines rb-polys rb-cube rb-model
rb-clip rb-planet rb-robot rb-list rb-stroke rb-smooth rb-movelight)
("Mesa Demos"
gears)
("SGI Samples")
("Other Examples"
glut-teapot
render-to-texture
misc-opengl-array
shader-vao
molview)))
;;; export symbols
(dolist (section +examples+)
(export (cdr section) '#:cl-glut-examples))
(defun list-examples ()
(format t "~&CL-GLUT-EXAMPLES contains the following examples:~%~%")
(dolist (section +examples+)
(format t "~&~A:~%~{~@[~<~%~:; ~:@(~A~)~>~]~}~%~%"
(car section) (cdr section))))
(defun run-examples ()
"Run all the CL-GLUT examples."
(let ((glut:*run-main-loop-after-display* nil))
(dolist (section +examples+)
(mapc #'funcall (cdr section)))
(glut:main-loop)))
Jump to Line
Something went wrong with that request. Please try again.