4 (:export
+ext-object-space-tess
+ +ext-nurbs-tessellator
+ +false
+ +true
+ +version-1-1
+ +version-1-2
+ +version-1-3
+ +version
+ +extensions
+ +invalid-enum
+ +invalid-value
+ +out-of-memory
+ +incompatible-gl-version
+ +invalid-operation
+ +outline-polygon
+ +outline-patch
+ +nurbs-error
+ +error
+ +nurbs-begin
+ +nurbs-begin-ext
+ +nurbs-vertex
+ +nurbs-vertex-ext
+ +nurbs-normal
+ +nurbs-normal-ext
+ +nurbs-color
+ +nurbs-color-ext
+ +nurbs-texture-coord
+ +nurbs-tex-coord-ext
+ +nurbs-end
+ +nurbs-end-ext
+ +nurbs-begin-data
+ +nurbs-begin-data-ext
+ +nurbs-vertex-data
+ +nurbs-vertex-data-ext
+ +nurbs-normal-data
+ +nurbs-normal-data-ext
+ +nurbs-color-data
+ +nurbs-color-data-ext
+ +nurbs-texture-coord-data
+ +nurbs-tex-coord-data-ext
+ +nurbs-end-data
+ +nurbs-end-data-ext
+ +nurbs-error-1
+ +nurbs-error-2
+ +nurbs-error-3
+ +nurbs-error-4
+ +nurbs-error-5
+ +nurbs-error-6
+ +nurbs-error-7
+ +nurbs-error-8
+ +nurbs-error-9
+ +nurbs-error-10
+ +nurbs-error-11
+ +nurbs-error-12
+ +nurbs-error-13
+ +nurbs-error-14
+ +nurbs-error-15
+ +nurbs-error-16
+ +nurbs-error-17
+ +nurbs-error-18
+ +nurbs-error-19
+ +nurbs-error-20
+ +nurbs-error-21
+ +nurbs-error-22
+ +nurbs-error-23
+ +nurbs-error-24
+ +nurbs-error-25
+ +nurbs-error-26
+ +nurbs-error-27
+ +nurbs-error-28
+ +nurbs-error-29
+ +nurbs-error-30
+ +nurbs-error-31
+ +nurbs-error-32
+ +nurbs-error-33
+ +nurbs-error-34
+ +nurbs-error-35
+ +nurbs-error-36
+ +nurbs-error-37
+ +auto-load-matrix
+ +culling
+ +sampling-tolerance
+ +display-mode
+ +parametric-tolerance
+ +sampling-method
+ +u-step
+ +v-step
+ +nurbs-mode
+ +nurbs-mode-ext
+ +nurbs-tessellator
+ +nurbs-tessellator-ext
+ +nurbs-renderer
+ +nurbs-renderer-ext
+ +object-parametric-error
+ +object-parametric-error-ext
+ +object-path-length
+ +object-path-length-ext
+ +path-length
+ +parametric-error
+ +domain-distance
+ +map-1-trim-2
+ +map-1-trim-3
+ +point
+ +line
+ +fill
+ +silhouette
+ +smooth
+ +flat
+ +none
+ +outside
+ +inside
+ +tess-begin
+ +begin
+ +tess-vertex
+ +vertex
+ +tess-end
+ +end
+ +tess-error
+ +tess-edge-flag
+ +edge-flag
+ +tess-combine
+ +tess-begin-data
+ +tess-vertex-data
+ +tess-end-data
+ +tess-error-data
+ +tess-edge-flag-data
+ +tess-combine-data
+ +cw
+ +ccw
+ +interior
+ +exterior
+ +unknown
+ +tess-winding-rule
+ +tess-boundary-only
+ +tess-tolerance
+ +tess-error-1
+ +tess-error-2
+ +tess-error-3
+ +tess-error-4
+ +tess-error-5
+ +tess-error-6
+ +tess-error-7
+ +tess-error-8
+ +tess-missing-begin-polygon
+ +tess-missing-begin-contour
+ +tess-missing-end-polygon
+ +tess-missing-end-contour
+ +tess-coord-too-large
+ +tess-need-combine-callback
+ +tess-winding-odd
+ +tess-winding-nonzero
+ +tess-winding-positive
+ +tess-winding-negative
+ +tess-winding-abs-geq-two
+ +tess-max-coord
+ begin-curve begin-polygon begin-surface begin-trim build-1d-mipmap-levels build-1d-mipmaps build-2d-mipmap-levels build-2d-mipmaps build-3d-mipmap-levels build-3d-mipmaps check-extension cylinder delete-nurbs-renderer delete-quadric delete-tess disk end-curve end-polygon end-surface end-trim error-string get-nurbs-property get-string get-tess-property load-sampling-matrices look-at new-nurbs-renderer new-quadric new-tess next-contour nurbs-callback nurbs-callback-data nurbs-callback-dataext nurbs-curve nurbs-property nurbs-surface ortho-2d partial-disk perspective pick-matrix project pwl-curve quadric-callback quadric-draw-style quadric-normals quadric-orientation quadric-texture scale-image sphere tess-begin-contour tess-begin-polygon tess-callback tess-end-contour tess-end-polygon tess-normal tess-property tess-vertex un-project un-project-4
))
9 (load-foreign-library '(:or
"openglu32.dll"
12 (:default
"openglu32")
16 (defconstant +ext-object-space-tess
+ 1)
17 (defconstant +ext-nurbs-tessellator
+ 1)
19 (defconstant +false
+ 0)
20 (defconstant +true
+ 1)
22 (defconstant +version-1-1
+ 1)
23 (defconstant +version-1-2
+ 1)
24 (defconstant +version-1-3
+ 1)
26 (defconstant +version
+ 100800)
27 (defconstant +extensions
+ 100801)
29 (defconstant +invalid-enum
+ 100900)
30 (defconstant +invalid-value
+ 100901)
31 (defconstant +out-of-memory
+ 100902)
32 (defconstant +incompatible-gl-version
+ 100903)
33 (defconstant +invalid-operation
+ 100904)
36 (defconstant +outline-polygon
+ 100240)
37 (defconstant +outline-patch
+ 100241)
39 (defconstant +nurbs-error
+ 100103)
40 (defconstant +error
+ 100103)
41 (defconstant +nurbs-begin
+ 100164)
42 (defconstant +nurbs-begin-ext
+ 100164)
43 (defconstant +nurbs-vertex
+ 100165)
44 (defconstant +nurbs-vertex-ext
+ 100165)
45 (defconstant +nurbs-normal
+ 100166)
46 (defconstant +nurbs-normal-ext
+ 100166)
47 (defconstant +nurbs-color
+ 100167)
48 (defconstant +nurbs-color-ext
+ 100167)
49 (defconstant +nurbs-texture-coord
+ 100168)
50 (defconstant +nurbs-tex-coord-ext
+ 100168)
51 (defconstant +nurbs-end
+ 100169)
52 (defconstant +nurbs-end-ext
+ 100169)
53 (defconstant +nurbs-begin-data
+ 100170)
54 (defconstant +nurbs-begin-data-ext
+ 100170)
55 (defconstant +nurbs-vertex-data
+ 100171)
56 (defconstant +nurbs-vertex-data-ext
+ 100171)
57 (defconstant +nurbs-normal-data
+ 100172)
58 (defconstant +nurbs-normal-data-ext
+ 100172)
59 (defconstant +nurbs-color-data
+ 100173)
60 (defconstant +nurbs-color-data-ext
+ 100173)
61 (defconstant +nurbs-texture-coord-data
+ 100174)
62 (defconstant +nurbs-tex-coord-data-ext
+ 100174)
63 (defconstant +nurbs-end-data
+ 100175)
64 (defconstant +nurbs-end-data-ext
+ 100175)
66 (defconstant +nurbs-error-1
+ 100251)
67 (defconstant +nurbs-error-2
+ 100252)
68 (defconstant +nurbs-error-3
+ 100253)
69 (defconstant +nurbs-error-4
+ 100254)
70 (defconstant +nurbs-error-5
+ 100255)
71 (defconstant +nurbs-error-6
+ 100256)
72 (defconstant +nurbs-error-7
+ 100257)
73 (defconstant +nurbs-error-8
+ 100258)
74 (defconstant +nurbs-error-9
+ 100259)
75 (defconstant +nurbs-error-10
+ 100260)
76 (defconstant +nurbs-error-11
+ 100261)
77 (defconstant +nurbs-error-12
+ 100262)
78 (defconstant +nurbs-error-13
+ 100263)
79 (defconstant +nurbs-error-14
+ 100264)
80 (defconstant +nurbs-error-15
+ 100265)
81 (defconstant +nurbs-error-16
+ 100266)
82 (defconstant +nurbs-error-17
+ 100267)
83 (defconstant +nurbs-error-18
+ 100268)
84 (defconstant +nurbs-error-19
+ 100269)
85 (defconstant +nurbs-error-20
+ 100270)
86 (defconstant +nurbs-error-21
+ 100271)
87 (defconstant +nurbs-error-22
+ 100272)
88 (defconstant +nurbs-error-23
+ 100273)
89 (defconstant +nurbs-error-24
+ 100274)
90 (defconstant +nurbs-error-25
+ 100275)
91 (defconstant +nurbs-error-26
+ 100276)
92 (defconstant +nurbs-error-27
+ 100277)
93 (defconstant +nurbs-error-28
+ 100278)
94 (defconstant +nurbs-error-29
+ 100279)
95 (defconstant +nurbs-error-30
+ 100280)
96 (defconstant +nurbs-error-31
+ 100281)
97 (defconstant +nurbs-error-32
+ 100282)
98 (defconstant +nurbs-error-33
+ 100283)
99 (defconstant +nurbs-error-34
+ 100284)
100 (defconstant +nurbs-error-35
+ 100285)
101 (defconstant +nurbs-error-36
+ 100286)
102 (defconstant +nurbs-error-37
+ 100287)
104 (defconstant +auto-load-matrix
+ 100200)
105 (defconstant +culling
+ 100201)
106 (defconstant +sampling-tolerance
+ 100203)
107 (defconstant +display-mode
+ 100204)
108 (defconstant +parametric-tolerance
+ 100202)
109 (defconstant +sampling-method
+ 100205)
110 (defconstant +u-step
+ 100206)
111 (defconstant +v-step
+ 100207)
112 (defconstant +nurbs-mode
+ 100160)
113 (defconstant +nurbs-mode-ext
+ 100160)
114 (defconstant +nurbs-tessellator
+ 100161)
115 (defconstant +nurbs-tessellator-ext
+ 100161)
116 (defconstant +nurbs-renderer
+ 100162)
117 (defconstant +nurbs-renderer-ext
+ 100162)
119 (defconstant +object-parametric-error
+ 100208)
120 (defconstant +object-parametric-error-ext
+ 100208)
121 (defconstant +object-path-length
+ 100209)
122 (defconstant +object-path-length-ext
+ 100209)
123 (defconstant +path-length
+ 100215)
124 (defconstant +parametric-error
+ 100216)
125 (defconstant +domain-distance
+ 100217)
127 (defconstant +map-1-trim-2
+ 100210)
128 (defconstant +map-1-trim-3
+ 100211)
130 (defconstant +point
+ 100010)
131 (defconstant +line
+ 100011)
132 (defconstant +fill
+ 100012)
133 (defconstant +silhouette
+ 100013)
137 (defconstant +smooth
+ 100000)
138 (defconstant +flat
+ 100001)
139 (defconstant +none
+ 100002)
140 ;; QuadricOrientation
141 (defconstant +outside
+ 100020)
142 (defconstant +inside
+ 100021)
144 (defconstant +tess-begin
+ 100100)
145 (defconstant +begin
+ 100100)
146 (defconstant +tess-vertex
+ 100101)
147 (defconstant +vertex
+ 100101)
148 (defconstant +tess-end
+ 100102)
149 (defconstant +end
+ 100102)
150 (defconstant +tess-error
+ 100103)
151 (defconstant +tess-edge-flag
+ 100104)
152 (defconstant +edge-flag
+ 100104)
153 (defconstant +tess-combine
+ 100105)
154 (defconstant +tess-begin-data
+ 100106)
155 (defconstant +tess-vertex-data
+ 100107)
156 (defconstant +tess-end-data
+ 100108)
157 (defconstant +tess-error-data
+ 100109)
158 (defconstant +tess-edge-flag-data
+ 100110)
159 (defconstant +tess-combine-data
+ 100111)
161 (defconstant +cw
+ 100120)
162 (defconstant +ccw
+ 100121)
163 (defconstant +interior
+ 100122)
164 (defconstant +exterior
+ 100123)
165 (defconstant +unknown
+ 100124)
167 (defconstant +tess-winding-rule
+ 100140)
168 (defconstant +tess-boundary-only
+ 100141)
169 (defconstant +tess-tolerance
+ 100142)
171 (defconstant +tess-error-1
+ 100151)
172 (defconstant +tess-error-2
+ 100152)
173 (defconstant +tess-error-3
+ 100153)
174 (defconstant +tess-error-4
+ 100154)
175 (defconstant +tess-error-5
+ 100155)
176 (defconstant +tess-error-6
+ 100156)
177 (defconstant +tess-error-7
+ 100157)
178 (defconstant +tess-error-8
+ 100158)
179 (defconstant +tess-missing-begin-polygon
+ 100151)
180 (defconstant +tess-missing-begin-contour
+ 100152)
181 (defconstant +tess-missing-end-polygon
+ 100153)
182 (defconstant +tess-missing-end-contour
+ 100154)
183 (defconstant +tess-coord-too-large
+ 100155)
184 (defconstant +tess-need-combine-callback
+ 100156)
186 (defconstant +tess-winding-odd
+ 100130)
187 (defconstant +tess-winding-nonzero
+ 100131)
188 (defconstant +tess-winding-positive
+ 100132)
189 (defconstant +tess-winding-negative
+ 100133)
190 (defconstant +tess-winding-abs-geq-two
+ 100134)
191 ;; ***********************************************************
192 (defconstant +tess-max-coord
+ 1.0d150
)
193 (defcfun ("gluBeginCurve" begin-curve
) :void
(nurb :pointer
))
194 (defcfun ("gluBeginPolygon" begin-polygon
) :void
(tess :pointer
))
195 (defcfun ("gluBeginSurface" begin-surface
) :void
(nurb :pointer
))
196 (defcfun ("gluBeginTrim" begin-trim
) :void
(nurb :pointer
))
197 (defcfun ("gluBuild1DMipmapLevels" build-1d-mipmap-levels
) gl
:int
(target gl
:enum
) (internalFormat gl
:int
) (width gl
:sizei
) (format gl
:enum
) (type gl
:enum
) (level gl
:int
) (base gl
:int
) (max gl
:int
) (data :pointer
))
198 (defcfun ("gluBuild1DMipmaps" build-1d-mipmaps
) gl
:int
(target gl
:enum
) (internalFormat gl
:int
) (width gl
:sizei
) (format gl
:enum
) (type gl
:enum
) (data :pointer
))
199 (defcfun ("gluBuild2DMipmapLevels" build-2d-mipmap-levels
) gl
:int
(target gl
:enum
) (internalFormat gl
:int
) (width gl
:sizei
) (height gl
:sizei
) (format gl
:enum
) (type gl
:enum
) (level gl
:int
) (base gl
:int
) (max gl
:int
) (data :pointer
))
200 (defcfun ("gluBuild2DMipmaps" build-2d-mipmaps
) gl
:int
(target gl
:enum
) (internalFormat gl
:int
) (width gl
:sizei
) (height gl
:sizei
) (format gl
:enum
) (type gl
:enum
) (data :pointer
))
201 (defcfun ("gluBuild3DMipmapLevels" build-3d-mipmap-levels
) gl
:int
(target gl
:enum
) (internalFormat gl
:int
) (width gl
:sizei
) (height gl
:sizei
) (depth gl
:sizei
) (format gl
:enum
) (type gl
:enum
) (level gl
:int
) (base gl
:int
) (max gl
:int
) (data :pointer
))
202 (defcfun ("gluBuild3DMipmaps" build-3d-mipmaps
) gl
:int
(target gl
:enum
) (internalFormat gl
:int
) (width gl
:sizei
) (height gl
:sizei
) (depth gl
:sizei
) (format gl
:enum
) (type gl
:enum
) (data :pointer
))
203 (defcfun ("gluCheckExtension" check-extension
) gl
:boolean
(extName :pointer
) (extString :pointer
))
204 (defcfun ("gluCylinder" cylinder
) :void
(quad :pointer
) (base gl
:double
) (top gl
:double
) (height gl
:double
) (slices gl
:int
) (stacks gl
:int
))
205 (defcfun ("gluDeleteNurbsRenderer" delete-nurbs-renderer
) :void
(nurb :pointer
))
206 (defcfun ("gluDeleteQuadric" delete-quadric
) :void
(quad :pointer
))
207 (defcfun ("gluDeleteTess" delete-tess
) :void
(tess :pointer
))
208 (defcfun ("gluDisk" disk
) :void
(quad :pointer
) (inner gl
:double
) (outer gl
:double
) (slices gl
:int
) (loops gl
:int
))
209 (defcfun ("gluEndCurve" end-curve
) :void
(nurb :pointer
))
210 (defcfun ("gluEndPolygon" end-polygon
) :void
(tess :pointer
))
211 (defcfun ("gluEndSurface" end-surface
) :void
(nurb :pointer
))
212 (defcfun ("gluEndTrim" end-trim
) :void
(nurb :pointer
))
213 (defcfun ("gluErrorString" error-string
) :pointer
(error gl
:enum
))
214 (defcfun ("gluGetNurbsProperty" get-nurbs-property
) :void
(nurb :pointer
) (property gl
:enum
) (data :pointer
))
215 (defcfun ("gluGetString" get-string
) :pointer
(name gl
:enum
))
216 (defcfun ("gluGetTessProperty" get-tess-property
) :void
(tess :pointer
) (which gl
:enum
) (data :pointer
))
217 (defcfun ("gluLoadSamplingMatrices" load-sampling-matrices
) :void
(nurb :pointer
) (model :pointer
) (perspective :pointer
) (view :pointer
))
218 (defcfun ("gluLookAt" look-at
) :void
(eyeX gl
:double
) (eyeY gl
:double
) (eyeZ gl
:double
) (centerX gl
:double
) (centerY gl
:double
) (centerZ gl
:double
) (upX gl
:double
) (upY gl
:double
) (upZ gl
:double
))
219 (defcfun ("gluNewNurbsRenderer" new-nurbs-renderer
) :pointer
)
220 (defcfun ("gluNewQuadric" new-quadric
) :pointer
)
221 (defcfun ("gluNewTess" new-tess
) :pointer
)
222 (defcfun ("gluNextContour" next-contour
) :void
(tess :pointer
) (type gl
:enum
))
223 (defcfun ("gluNurbsCallback" nurbs-callback
) :void
(nurb :pointer
) (which gl
:enum
) (CallBackFunc :pointer
))
224 (defcfun ("gluNurbsCallbackData" nurbs-callback-data
) :void
(nurb :pointer
) (userData :pointer
))
225 (defcfun ("gluNurbsCallbackDataEXT" nurbs-callback-dataext
) :void
(nurb :pointer
) (userData :pointer
))
226 (defcfun ("gluNurbsCurve" nurbs-curve
) :void
(nurb :pointer
) (knotCount gl
:int
) (knots :pointer
) (stride gl
:int
) (control :pointer
) (order gl
:int
) (type gl
:enum
))
227 (defcfun ("gluNurbsProperty" nurbs-property
) :void
(nurb :pointer
) (property gl
:enum
) (value gl
:float
))
228 (defcfun ("gluNurbsSurface" nurbs-surface
) :void
(nurb :pointer
) (sKnotCount gl
:int
) (sKnots :pointer
) (tKnotCount gl
:int
) (tKnots :pointer
) (sStride gl
:int
) (tStride gl
:int
) (control :pointer
) (sOrder gl
:int
) (tOrder gl
:int
) (type gl
:enum
))
229 (defcfun ("gluOrtho2D" ortho-2d
) :void
(left gl
:double
) (right gl
:double
) (bottom gl
:double
) (top gl
:double
))
230 (defcfun ("gluPartialDisk" partial-disk
) :void
(quad :pointer
) (inner gl
:double
) (outer gl
:double
) (slices gl
:int
) (loops gl
:int
) (start gl
:double
) (sweep gl
:double
))
231 (defcfun ("gluPerspective" perspective
) :void
(fovy gl
:double
) (aspect gl
:double
) (zNear gl
:double
) (zFar gl
:double
))
232 (defcfun ("gluPickMatrix" pick-matrix
) :void
(x gl
:double
) (y gl
:double
) (delX gl
:double
) (delY gl
:double
) (viewport :pointer
))
233 (defcfun ("gluProject" project
) gl
:int
(objX gl
:double
) (objY gl
:double
) (objZ gl
:double
) (model :pointer
) (proj :pointer
) (view :pointer
) (winX :pointer
) (winY :pointer
) (winZ :pointer
))
234 (defcfun ("gluPwlCurve" pwl-curve
) :void
(nurb :pointer
) (count gl
:int
) (data :pointer
) (stride gl
:int
) (type gl
:enum
))
235 (defcfun ("gluQuadricCallback" quadric-callback
) :void
(quad :pointer
) (which gl
:enum
) (CallBackFunc :pointer
))
236 (defcfun ("gluQuadricDrawStyle" quadric-draw-style
) :void
(quad :pointer
) (draw gl
:enum
))
237 (defcfun ("gluQuadricNormals" quadric-normals
) :void
(quad :pointer
) (normal gl
:enum
))
238 (defcfun ("gluQuadricOrientation" quadric-orientation
) :void
(quad :pointer
) (orientation gl
:enum
))
239 (defcfun ("gluQuadricTexture" quadric-texture
) :void
(quad :pointer
) (texture gl
:boolean
))
240 (defcfun ("gluScaleImage" scale-image
) gl
:int
(format gl
:enum
) (wIn gl
:sizei
) (hIn gl
:sizei
) (typeIn gl
:enum
) (dataIn :pointer
) (wOut gl
:sizei
) (hOut gl
:sizei
) (typeOut gl
:enum
) (dataOut :pointer
))
241 (defcfun ("gluSphere" sphere
) :void
(quad :pointer
) (radius gl
:double
) (slices gl
:int
) (stacks gl
:int
))
242 (defcfun ("gluTessBeginContour" tess-begin-contour
) :void
(tess :pointer
))
243 (defcfun ("gluTessBeginPolygon" tess-begin-polygon
) :void
(tess :pointer
) (data :pointer
))
244 (defcfun ("gluTessCallback" tess-callback
) :void
(tess :pointer
) (which gl
:enum
) (CallBackFunc :pointer
))
245 (defcfun ("gluTessEndContour" tess-end-contour
) :void
(tess :pointer
))
246 (defcfun ("gluTessEndPolygon" tess-end-polygon
) :void
(tess :pointer
))
247 (defcfun ("gluTessNormal" tess-normal
) :void
(tess :pointer
) (valueX gl
:double
) (valueY gl
:double
) (valueZ gl
:double
))
248 (defcfun ("gluTessProperty" tess-property
) :void
(tess :pointer
) (which gl
:enum
) (data gl
:double
))
249 (defcfun ("gluTessVertex" tess-vertex
) :void
(tess :pointer
) (location :pointer
) (data :pointer
))
250 (defcfun ("gluUnProject" un-project
) gl
:int
(winX gl
:double
) (winY gl
:double
) (winZ gl
:double
) (model :pointer
) (proj :pointer
) (view :pointer
) (objX :pointer
) (objY :pointer
) (objZ :pointer
))
251 (defcfun ("gluUnProject4" un-project-4
) gl
:int
(winX gl
:double
) (winY gl
:double
) (winZ gl
:double
) (clipW gl
:double
) (model :pointer
) (proj :pointer
) (view :pointer
) (nearVal gl
:double
) (farVal gl
:double
) (objX :pointer
) (objY :pointer
) (objZ :pointer
) (objW :pointer
))