X-Git-Url: https://git.jsancho.org/?p=guile-irrlicht.git;a=blobdiff_plain;f=irrlicht%2Fvideo.scm;h=c6531f09edc9bdda8a962e4b687f0e314c949a50;hp=9acfa1853c7cc3272286e5ee5d7ebcfb78f7f1a0;hb=061e994acc2fe7806d3911a715993c442e56f7ef;hpb=df1088b80d2c90a390b0229ce5c6ffcc7665fda4

diff --git a/irrlicht/video.scm b/irrlicht/video.scm
index 9acfa18..c6531f0 100644
--- 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