[cells-devel] Problem with defmd and dependency ...

[Frank Goenninger]

Hi Kenny (and all on the list):

I have a simple defmd:

(defmd gnc-point ()
	(x (c-in 0))
	(y (c-in 0))
	(z (c-in 0))
	(foreign-ptr (c_? (let ((ptr (or (^foreign-ptr) (fgn-alloc 'glInt  
3 :gnc-point))))
							   (when ptr
								   (setf (eltgli ptr 0) (^x))
							     (setf (eltgli ptr 1) (^y))
							     (setf (eltgli ptr 2) (^z)))
								 ptr))))


This is a model for a point ( x | y | z ) and a foreign object  
pointer. The pointer shall be set to a an FFI memory pointer (via  
CFFI) when the instance is created. Also, the elements of the memory  
array (which is 3 glInt, this being three OpenGL Integers) shall be  
updated when any of the coordinates x y z is changed...

I get  x, y, and z updated but the foreign-ptr remains NIL ... What  
am I doing wrong ???

Thx!

Frank

-------------- next part --------------
A non-text attachment was scrubbed...
Name: PGP.sig
Type: application/pgp-signature
Size: 833 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/cells-devel/attachments/20070829/7d1c314e/attachment.sig>