1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
;; OpenGL interface and libraries
;;
;; SunOS&Mesa
;;(unless (find-package "GL") (make-package "GL"))
;;(in-package "GL")
;;(when (and
;; (substringp "gl" (pathname-name *program-name*))
;; (push :GL *features*)
;; (use-package "GEOMETRY")
;; (sys::exec-module-init "oglforeign")
;; (sys::exec-module-init "gldecl" "openGL/loadgl.l")
;; )
;; (unless (find-symbol "*LIBGL*")
;; (sys::exec-module-init "glprim")
;; (sys::exec-module-init "glview")
;; )
;; (in-package "USER")
;; (sys::exec-module-init "floatdouble")
;; (import '(gl::glviewsurface gl::resetperspective gl::gldraw
;; gl::swapb gl::glcls gl::colormaterial gl::linecolor
;; gl::position-light))
;; )
;; irix
(push :GL *features*)
(sys::exec-module-init "oglforeign" "opengl/src/loadgl.l")
(in-package "GL")
(use-package "GEOMETRY")
(unless (find-symbol "*LIBGL*") ; for SunOS4 with .so bug
(sys::exec-module-init "gldecl" "opengl/src/gldecl.l")
(sys::exec-module-init "glconst" "opengl/src/glconst.l")
;; (sys::exec-module-init "auxconst" "lisp/opengl/src/auxconst.l")
(sys::exec-module-init "glforeign" "opengl/src/glforeign.l")
(sys::exec-module-init "gluconst" "opengl/src/gluconst.l")
(sys::exec-module-init "gluforeign" "opengl/src/gluforeign.l")
(sys::exec-module-init "glxconst" "opengl/src/glxconst.l")
(sys::exec-module-init "glxforeign" "opengl/src/glxforeign.l")
;; (sys::exec-module-init "auxforeign" "opengl/src/auxforeign.l")
(sys::exec-module-init "eglforeign" "opengl/src/eglforeign.l")
(sys::exec-module-init "eglfunc")
(sys::exec-module-init "glutil" "opengl/src/glutil.l")
(sys::exec-module-init "gltexture" "opengl/src/gltexture.l")
(sys::exec-module-init "glprim" "opengl/src/glprim.l")
(sys::exec-module-init "gleus" "opengl/src/gleus.l")
(sys::exec-module-init "glview" "lisp/opengl/src/glview.l")
(sys::exec-module-init "toiv" "lisp/opengl/src/toiv.l")
)
(in-package "USER")
(import '(gl::glviewsurface
gl::resetperspective
gl::gldraw
gl::swapb
gl::glcls
gl::colormaterial
gl::colormaterial-ambient
gl::colormaterial-diffuse
gl::colormaterial-specular
gl::colormaterial-emission
gl::colormaterial-shininess
gl::linecolor
gl::linecolor-color
gl::position-light))
(in-package "USER")
(import '(gl:glviewsurface gl::resetperspective gl:gldraw
gl::swapb gl::glcls gl:colormaterial gl::linecolor
gl::position-light))
|
