It has something to do with the functions in interface.lisp, I believe. (I can't remember for sure, but I THINK, if you call glut:init twice using apple's cocoa glut it gives you that NSApplicationInit() error.)
All I had to do (I think, it's been a while) was to use that (:darwin (:framework "GLUT")) line in library.lisp. My sample code is attached, Sean, although it won't run as it is, unless you install cl-arcball. Remove all of the cl-arcball code and it should run for you. (Or, since I'm also attaching my cl-arcball asdf-install library, you can just asdf-install cl-arcball 0.1). Note all of the cffi foreign function and foreign type conversion and callback stuff. It's not hard once you read through the code, in my opinion. On 3/17/07, Sean Charles <[EMAIL PROTECTED]> wrote:
I am sure the thing that stopped me was not being able to call NSApplicationInit()... I did manage to get something going but it kept dropping out with an error, which, on looking it up said I had to call NSApplicationInit() but my CFFI experience is limited and I couldn't work out how to do it. I looked at Verrazano as well but in the end time pressures made me go for X11. It just worked, I had to make a small change to get it to work on an intel mac though if I remember I just modded the library.lisp file a bit. My finally chaotic glut def looks like: (define-foreign-library glut ;;-- (sjc-03-jul-06) -- added this line to ensure my locally built ;;-- OpenGLUT library is loaded as the "glut" library! ;; ;; (1) /usr/local/lib/libopenglut.dylib => my build from OpenGLUT source package. ;; (2) /sw/lib/libglut.dylib => FINK installation of 3.7-1025 ;; ;; Q. Which one is 'better' to use, if any ?! ;; (1) because (2) doesn't have glutLeaveMainLoop etc !!! ;; ;((:and :darwin :x86) "/sw/lib/libglut.dylib") ((:and :darwin :x86) "/usr/local/lib/libopenglut.dylib") ;((:and :darwin :x86) (:framework "GLUT")) ;(:darwin (:or "libglut.dylib" "libglut.3.dylib" #-(and)(:framework "GLUT"))) (:windows "freeglut.dll") ; XXX: is this right? (:unix (:or "libglut.so" "libglut.so.3"))) which, removing the chaff leaves this, I added the :x86 to make it intel friendly! (define-foreign-library glut ((:and :darwin :x86) "/usr/local/lib/libopenglut.dylib") (:windows "freeglut.dll") ; XXX: is this right? (:unix (:or "libglut.so" "libglut.so.3"))) On 17 Mar 2007, at 00:11, sathya gnanasekaran wrote: Yeah, it annoys me a lot. I'll check if anyone has any prior work done in that direction first, but if not, I'll look into it. The problem is I have little cocoa/carbon experience. Time to learn I guess. On 3/16/07, Luís Oliveira <[EMAIL PROTECTED]> wrote: > > On 16/03/07, sathya gnanasekaran <[EMAIL PROTECTED]> wrote: > > I use cl-opengl on OSX to play with opengl in lisp. I use it by > > changing the library from freeglut to apple's cocoa-based glut > > framework. (Although I'm sure I could use apple's X11 + freeglut, X > > has given be trouble.) > > That GLUT will call exit() (and kill your Lisp) very often, doesn't > that annoy you? Hey, you could port freeglut to Cocoa (or is it > Carbon?), that'd be nice. :-) > > -- > Luís Oliveira > http://student.dei.uc.pt/~lmoliv/ <http://student.dei.uc.pt/%7Elmoliv/> > _______________________________________________ cl-opengl-devel mailing list cl-opengl-devel@common-lisp.net http://common-lisp.net/cgi-bin/mailman/listinfo/cl-opengl-devel
lisp-opengl.lisp
Description: Binary data
cl-arcball_0.1.tar.gz
Description: GNU Zip compressed data
_______________________________________________ cl-opengl-devel mailing list cl-opengl-devel@common-lisp.net http://common-lisp.net/cgi-bin/mailman/listinfo/cl-opengl-devel
