(define-class <vertex3d> (<irrlicht-base>)
(irr-class #:init-value "S3DVertex"))
+(define-method (get-position (vertex3d <vertex3d>))
+ (let ((S3DVertex_Pos (get-irrlicht-proc "S3DVertex_Pos")))
+ (S3DVertex_Pos vertex3d)))
+
(define (make-vertex3d position normal color tcoords)
(let ((S3DVertex_make (get-irrlicht-proc "S3DVertex_make")))
(make <vertex3d>
#:irr-pointer
(S3DVertex_make position normal color tcoords))))
-(export <vertex3d> make-vertex3d)
+(export <vertex3d> get-position make-vertex3d)
;; SMaterial