get-position add-internal-point!

[guile-irrlicht.git] / irrlicht / video.scm

diff --git a/irrlicht/video.scm b/irrlicht/video.scm
index 9acfa1853c7cc3272286e5ee5d7ebcfb78f7f1a0..c6531f09edc9bdda8a962e4b687f0e314c949a50 100644 (file)
--- a/irrlicht/video.scm
+++ b/irrlicht/video.scm
@@ -77,13 +77,17 @@
 (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