sgl/gl: NURBS additions
From Antonio Menezes Leitao based on Ben Goetter's implementation
This commit is contained in:
parent
cb8975b8b3
commit
a55a20f9d9
|
@ -807,10 +807,13 @@
|
|||
_glu-quadric _gl-double _gl-double _gl-int _gl-int _gl-double _gl-double ->)
|
||||
|
||||
;; 7.1
|
||||
#|
|
||||
(define-foreignu gluNewNurbsRenderer -> _glu-nurbs*)
|
||||
(define-foreignu gludeleteNurbsRenderer _glu-nurbs* ->)
|
||||
|#
|
||||
(define _glu-nurbs
|
||||
(_cpointer 'nurbs _pointer #f
|
||||
(lambda (q*) (register-finalizer q* gluDeleteNurbsRenderer) q*)))
|
||||
|
||||
(define-foreignu gluNewNurbsRenderer -> _glu-nurbs)
|
||||
(define-foreignu gluDeleteNurbsRenderer _glu-nurbs ->)
|
||||
|
||||
|
||||
;; 7.2
|
||||
#|
|
||||
|
@ -819,21 +822,19 @@
|
|||
|#
|
||||
|
||||
;; 7.3
|
||||
#|
|
||||
(define-foreignu gluBeginCurve _glu-nurbs* ->)
|
||||
(define-foreignu gluBeginCurve _glu-nurbs ->)
|
||||
(define-foreignu gluNurbsCurve
|
||||
_glu-nurbs* _gl-int _gl-floatv _gl-int _gl-floatv _gl-int _gl-enum ->)
|
||||
(define-foreignu gluEndCurve _glu-nurbs* ->)
|
||||
|#
|
||||
_glu-nurbs _gl-int _gl-floatv _gl-int _gl-floatv _gl-int _gl-enum ->)
|
||||
(define-foreignu gluEndCurve _glu-nurbs ->)
|
||||
|
||||
;; 7.4
|
||||
#|
|
||||
(define-foreignu gluBeginSurface _glu-nurbs* ->)
|
||||
|
||||
(define-foreignu gluBeginSurface _glu-nurbs ->)
|
||||
(define-foreignu gluNurbsSurface
|
||||
_glu-nurbs* _gl-int _gl-floatv _gl-int _gl-floatv _gl-int
|
||||
_glu-nurbs _gl-int _gl-floatv _gl-int _gl-floatv _gl-int
|
||||
_gl-int _gl-floatv _gl-int _gl-int _gl-enum ->)
|
||||
(define-foreignu gluEndSurface _glu-nurbs* ->)
|
||||
|#
|
||||
(define-foreignu gluEndSurface _glu-nurbs ->)
|
||||
|
||||
|
||||
;; 7.5
|
||||
#|
|
||||
|
@ -843,8 +844,8 @@
|
|||
|#
|
||||
|
||||
;; 7.6
|
||||
(define-foreignu gluNurbsProperty _glu-nurbs _gl-enum _gl-float ->)
|
||||
#|
|
||||
(define-foreignu gluNurbsProperty _glu-nurbs* _gl-enum _gl-float ->)
|
||||
(define-foreignu gluLoadSamplingMatrix _glu-nurbs* _gl-floatv _gl-floatv _gl-intv ->)
|
||||
(define-foreignu gluGetNurbsProperty _glu-nurbs* _gl-enum _gl-floatv ->)
|
||||
|#
|
||||
|
|
|
@ -18,7 +18,7 @@ in the GL 1.5 and GLU 1.3 specifications, except for the following:
|
|||
@item{Buffer object queries (GL 1.5, Section 6.1.13)}
|
||||
@item{Polygon tessellation (GLU 1.3, Section 5)}
|
||||
@item{@tt{gluQuadricCallback} (GLU 1.3, Section 6.2)}
|
||||
@item{NURBS (GLU 1.3, Section 7)}
|
||||
@item{NURBS callbacks (GLU 1.3, Section 7.2)}
|
||||
]
|
||||
|
||||
If one of the provided functions is not present on your system
|
||||
|
|
Loading…
Reference in New Issue
Block a user