- HOpenGL - Haskell.org

Trouble with GHCi and HOpenGL
by Magnus Lindberg 03 Oct '02

03 Oct '02

Hi! I've installed HOpenGL (using cygwin and windows 2000). But when I try to run ghci with HOpenGL I just get these error messages: >ghci -package HOpenGL ___ ___ _ / _ \ /\ /\/ __(_) / /_\// /_/ / / | | GHC Interactive, version 5.04, for Haskell 98. / /_\\/ __ / /___| | http://www.haskell.org/ghc/ \____/\/ /_/\____/|_| Type :? for help. Loading package base ... linking ... done. Loading package haskell98 ... linking ... done. Loading package lang ... linking ... done. Loading package HOpenGL ... C:\Program\Haskell\ghc-5.04\bin\ghc.exe: can't load .so/.DLL for: HOpenGL (addDLL: unknown error) What does this mean? When I run ">ghc an_HOpenGl_program.hs -package HOpenGL" everything works and I can run the compiled program, but why doesn't ghci work ? Can it have someghing to do with this error message I got when I built HOpenGL: ... package=HOpenGL || true ; \ "/cygdrive/c/Program/Haskell/ghc-5.04/bin/ghc-pkg" --config-file="" --force - -add-package < HOpenGL.conf ; \ fi package `HOpenGL' not installed <--- Why ? Reading package info from stdin... done. Expanding embedded variables...done. warning: can't find GHCi lib `HOpenGL.o' <--- Why, again?? Does anyone know how to get ghci working with HOpenGL? Sorry if this question is stupid - I'm a student and am learning Haskell right now...

2 1

Re: [HOpenGL] problems compiling hopengl on freebsd
by Chris Moline 29 Aug '02

29 Aug '02

On Wed, 28 Aug 2002 09:39:21 +0200, Sven Panne <Sven_Panne(a)BetaResearch.de> wrote: > Hmmm, that looks OK to me. Perhaps autoconf couldn't find the include path > and/or library path for the X11 stuff. Could you send me your config.log, > config.status and a transcript of your shell session for configure, please? when you asked me for config.log and config.status i didnt know they existed and so i resolved to have a look at them to see if that helped. i think it might have. i am not sure but ill run it by you to see if it does. ok. i was looking and i found some lines that made me think that maybe the problem was that some -l flags werent getting specified. they are lines 183 to 202 configure:3710: checking for library containing glEnd configure:3730: gcc -o conftest -g -O2 -I/usr/X11R6/include conftest.c -lSM /tmp/ccL3PAy0.o: In function `main': /usr/home/chris/HOpenGL-1.03/configure(.text+0x7): undefined reference to `glEnd configure:3733: $? = 1 configure: failed program was: #line 3718 "configure" #include "confdefs.h" #include <GL/glut.h> int main () { glEnd() ; return 0; } configure:3762: gcc -o conftest -g -O2 -I/usr/X11R6/include conftest.c -lGL /usr/X11R6/lib/libGL.so: undefined reference to `pthread_getspecific' /usr/X11R6/lib/libGL.so: undefined reference to `pthread_key_create' /usr/X11R6/lib/libGL.so: undefined reference to `pthread_setspecific' some of those lines have been truncated. so i tried creating a test.c which looks like this #include <GL/glut.h> int main() { glEnd(); printf("hello world!\n"); return 0; } then i tried compiling it with gcc test.c -I/usr/X11R6/include -lSM -lICE -L/usr/X11R6/lib -lX11 -lXext -lXmu -lXt -lXi -lm -pthread -lGL this compiles with no errors. running ./a.out gives hello world!. so i am thinking it is working now. this leads me to think that perhaps the problem is that -lpthread is not getting specified on the commandline. does this sound plausible? sincerly, chris moline

3 2

Re: [HOpenGL] problems compiling hopengl on freebsd
by Chris Moline 28 Aug '02

28 Aug '02

On Tue, 27 Aug 2002 22:32:52 +0200, Sven Panne <sven.panne(a)informatik.uni-muenchen.de> wrote: > It looks like OpenGL/GLUT is not installed on your machine or is in a > rather strange location. I'm not a FreeBSD specialist, so I can only > guess. What does > > locate libMesa libGL libglut gl.h glu.h glut.h > > yield? Any FreeBSD people using HOpenGL out there to help? [03:43 PM 0.11 0.17 0.16 ~/HOpenGL-1.03]$ locate libMesa libGL libglut gl.h glu.h glut.h /usr/X11R6/lib/libMesaGL.so /usr/X11R6/lib/libMesaGLU.so /usr/X11R6/lib/libGL.so /usr/X11R6/lib/libGL.so.14 /usr/X11R6/lib/libGLU.so /usr/X11R6/lib/libGLU.so.14 /usr/X11R6/lib/libglut.so /usr/X11R6/lib/libglut.so.3 /usr/X11R6/include/GL/gl.h /usr/X11R6/include/GL/glu.h /usr/X11R6/include/GL/glut.h here you are. chris

2 1

problems compiling hopengl on freebsd
by Chris Moline 28 Aug '02

28 Aug '02

hi. i am trying to compile hopengl on freebsd. however the compilation fails with ------------------------------------------------------------------------^M gmake all - --no-print-directory;^M in /usr/home/chris/HOpenGL-1.03/examples/misc^M ------------------------------------------------------------------------^M "/usr/local/bin/ghc" -i../../lib -I../../lib -syslib util -fglasgow-exts -I/u rm -f Main.hi^M "/usr/local/bin/ghc" -o Info -i../../lib -I../../lib -syslib util -fglasgow-exts ../../lib/libHOpenGL.a(GLUT_Init__76.o): In function `sf91_ret':^M GLUT_Init__76.o(.text+0x221): undefined reference to `glutInit'^M ../../lib/libHOpenGL.a(GLUT_Init__85.o): In function `sfrc_ret':^M GLUT_Init__85.o(.text+0x132): undefined reference to `glutInitWindowSize'^M ../../lib/libHOpenGL.a(GLUT_Init__85.o): In function `sfrh_ret':^M GLUT_Init__85.o(.text+0x1fe): undefined reference to `glutInitWindowPosition'^ ../../lib/libHOpenGL.a(GLUT_Init__85.o): In function `sfrl_ret':^M GLUT_Init__85.o(.text+0x2c3): undefined reference to `glutInitDisplayMode'^M ../../lib/libHOpenGL.a(GLUT_Window__13.o): In function `GLUTzuWindow_getWindow_f GLUT_Window__13.o(.text+0x3f): undefined reference to `glutGetWindow'^M ../../lib/libHOpenGL.a(GLU_Init__2.o): In function `GLUzuInit_zdwzdfGettableVarG GLU_Init__2.o(.text+0x47): undefined reference to `gluGetString'^M ../../lib/libHOpenGL.a(GLU_Init__3.o): In function `GLUzuInit_zdwzdfGettableVarG GLU_Init__2.o(.text+0x47): undefined reference to `gluGetString'^M ../../lib/libHOpenGL.a(GLU_Init__3.o): In function `GLUzuInit_zdwzdfGettableVarG GLU_Init__3.o(.text+0x47): undefined reference to `gluGetString'^M ../../lib/libHOpenGL.a(GL_Query__2.o): In function `GLzuQuery_zdwzdfGettableVarG GL_Query__2.o(.text+0x47): undefined reference to `glGetString'^M ../../lib/libHOpenGL.a(GL_Query__24.o): In function `GLzuQuery_zdwzdfGettableVar GL_Query__24.o(.text+0x47): undefined reference to `glGetString'^M ../../lib/libHOpenGL.a(GL_Query__70.o): In function `safR_1_alt':^M GL_Query__70.o(.text+0x68): undefined reference to `glGetString'^M ../../lib/libHOpenGL.a(GL_Query__70.o): In function `safR_2_alt':^M GL_Query__70.o(.text+0x94): undefined reference to `glGetString'^M ../../lib/libHOpenGL.a(GL_QueryUtils__4.o): In function `scdP_ret':^M GL_QueryUtils__4.o(.text+0xc6): undefined reference to `glGetBooleanv'^M ../../lib/libHOpenGL.a(GL_QueryUtils__7.o): In function `sce1_ret':^M GL_QueryUtils__7.o(.text+0xc6): undefined reference to `glGetIntegerv'^M ../../lib/libHOpenGL.a(GLUT_CBWindow__151.o): In function `GLUTzuCBWindow_zzdwcc GLUT_CBWindow__151.o(.text+0x52): undefined reference to `glutDisplayFunc'^M ../../lib/libHOpenGL.a(GLUT_Init__83.o): In function `GLUTzuInit_zdLrf1szzdwccal GLUT_Init__83.o(.text+0x23): undefined reference to `glutCreateWindow'^M gmake[2]: *** [Info] Error 1^M gmake[1]: *** [all] Error 1^M gmake: *** [all] Error 1^M i am thinking its because configure is having trouble finding some libraries checking for main in -lm... yes^M checking for library containing glEnd... no^M checking for library containing gluNewQuadric... no^M checking for library containing glXWaitX... no^M checking for library containing glutMainLoop... no^M i have mesa-3.4.2_2. i am running freebsd 4.5 release. any hints on what to do would be greatly appreciated. sincerly, chris moline

2 1

ANNOUNCE: HOpenGL 1.03 released
by Sven Panne 31 Jul '02

31 Jul '02

HOpenGL, a Haskell binding for OpenGL and GLUT version 1.03 I am pleased to announce the fourteenth release of the Haskell binding for GL 1.2.1 / GLU 1.3 / GLUT 3.7beta. It offers easy access to *the* industrial strength 3D graphics API and a GUI toolkit. More details about HOpenGL can be found at http://haskell.org/HOpenGL It is yet another compatibility release, which fixes a few bugs in the configuration process and makes installation a bit more flexible. If you are happy with the previous version, you don't need this release, as there are no new features. What's new: * Fixed GLUT version test, so GLUT API version 4 features like game mode and key-up callbacks are correctly detected. * The automatic test for -split-objs works again. * Added support for installing HOpenGL in user-specified locations. * The values of CPPFLAGS and LDFLAGS during configuration are remembered. * The paths to build tools can contain spaces. * The test for GLX has been improved. * Added workaround for buggy SUN OpenGL header. * Renamed --with-Mesa and --with-efence configure options to --enable-Mesa and --enable-efence. As always, feedback and/or patches are highly welcome. Have fun! Sven

1 0

I now know why there's no binding to FTGL nor to GLTT
by Nick Name 24 Jul '02

24 Jul '02

I wanted to make a binding to FTGL or GLTT, or the other one, I don't remember the name. Those all are for C++, not for C. Is there a way? I really don't know anything about calling C++ from C. Is there some way to make haskell bindings for a C++ library? Am I stuck in a dead end? Already? Vincenzo

2 2

GL utilities, toolkits, and questions..
by C.Reinke 23 Jul '02

23 Jul '02

Hi again, given GL's separation of low-level features and other useful stuff, there are a lot of GL utilities around that make GL life less painful. I've been wondering whether anyone is working on making some of those available or willing to share their own hacks in those areas. Typical examples: 1. fonts.. there are n+1 ways to make fonts with GL, so of course none of them are part of the standard fortunately, GLUT has some minimal support, but there must be GL bindings to/converters from free fonts (or at least system fonts:-( around. * aside: there's something odd with GLUT's stroke font width. * HOpenGL returns that as an Int, which seems to match the spec, * but doesn't make sense to me.. "width in pixels" of a stroke * font??? is that a copy and paste error from the preceding * section on bitmap fonts? * oh, and why is the default stroke font size so huge? I have * to scale it down by a factor of 100, it seems, to get into * natural proportions.. 2. snapshots/printing.. again, GL provides only the foundations we all want to show what we do to people who don't have GHC, GLUT, .. of course, you can snapshot static scenes using system tools, but it would be nicer to produce snapshots, preferredly animated (what format, though?), from within HOpenGL. using feedback from the framebuffer, that seems possible. The GL pages also talk about printer-resolution printing by rendering the scene in tiles. could one export 2d-vector graphics (postscript/SVG) from HOpenGL, or always just pixmaps? 3. scene graph libraries.. who wants to play with all the low-level details all the time? as it happens, I'm working on this part;-) work in progress, but see http://www.cs.ukc.ac.uk/people/staff/cr3/FunWorlds/ for outlines of where I'm headed with this. no screen shots yet (see 2 for why), so here's a brief summary of the state of things - static scene graphs and translation to HOpenGL: are relatively straightforward, and I had some experience with VRML-style scene graphs, so that part only grows on demand - dynamic scene graphs: if you've seen my earlier experiments with FunWorlds/VRML, you know that I'm playing with Fran concepts here, but I've now made some modifications to Fran basic, with which I'm quite happy so far (that's the research aspect and hence the current focus) 4. shadows? there seem to be several techniques - is any of them generally applicable (not just shadows on static planes) and portable? 5. GUIs? Sven mentioned several a while ago, one of which looked quite reasonable. 6. others?-) And while we're at it (some have started already): what are you doing/hoping to do with HOpenGL (not just dozens of private versions of Haskell DOOM, I hope?-)? Claus

6 17

Re: [HOpenGL] GL utilities, toolkits, and questions..
by C.Reinke 23 Jul '02

23 Jul '02

> Well, I guess the size itself is not a bug, but a feature of GLUT. But > there is an inconsistency: The spec for glutStrokeCharacter > > http://www.opengl.org/developers/documentation/glut/spec3/node78.html > > talks about "units" (of magnitude 100, as you've already noticed), > while the spec for glutStrokeWidth > > http://www.opengl.org/developers/documentation/glut/spec3/node79.html > > talks about "pixels". The latter is probably a cut-n-paste bug from > the spec for glutBitmapWidth. Just as I suspected. And here's what the glutStrokeWidth and glutStrokeLength man pages in the GLUT sources say: int glutStrokeWidth(void *font, int character); int glutStrokeLength(void *font, const unsigned char *string); glutStrokeWidth returns the width in modeling units of a stroke character in a supported stroke font glutStrokeLength returns the length in modeling units of a string (8-bit characters). This length is equivalent to summing all the widths returned by glutStrokeWidth for each character in the string. So the "int" return type (instead of GLdouble, as I expected) seems possible because of that "units" talk, and the "pixel" talk doesn't seem to belong there in the spec. Sigh, one just needs to know how to read the spec (and the source).. Okay, that gives me another chance to try silly things (centered or right-justified text blocks, in this case;-). Looking forward to "real" font add-ons to HOpenGL, of course, if Vincenzo gets round to it. Btw, while we are sharing tricks and plans - using feedback to output vectorized snapshots wasn't as difficult as I thought (as usual, the redbook_HS examples, here "Feedback.hs", were helpful). A dummy fragment for exporting SVG (http://www.w3.org/TR/SVG/) from HOpenGL is appended (just dealing with lines and polygons, just output the polygons as they come -> possibly incorrect output), and the more complete original for exporting EPS from OpenGL (output polygons in back-to-front order and emulate flat shading) can be found at: Mark Kilgard Achieving Quality PostScript output for OpenGL http://www.opengl.org/developers/code/mjktips/Feedback.html Unfortunately, the resulting vector graphics can be quite large, certainly larger that a JPEG snapshot:-(. They are scalable, which is nice, and with a bit of hacking, one could put several of them into an SVG file, and animate through the snapshots, but then the size problem becomes a real headache. Haven't tried compression yet, nor hidden polygon removal, but I'm currently not inclined to fill in the missing bits in the code, simply because I'm not using it - it was worth a try, though.. Cheers, Claus ----------------------------------- a little HOpenGL to SVG hack import Numeric(showGFloat) .. -- extract x and y coordinates from feedback info, ignore rest svgXYproject (ThreeDColor (Vertex3 x y z) (Prelude.Right (Color4 r g b a))) = (showGFloat (Just 2) x . showString "," . showGFloat (Just 2) (-y) . showString " ") "" -- extract rgb values from feedback info, ignore rest svgRGBproject (ThreeDColor (Vertex3 x y z) (Prelude.Right (Color4 r g b a))) = (showGFloat Nothing (r*100) . showString "%," . showGFloat Nothing (g*100) . showString "%, " . showGFloat Nothing (b*100) . showString "%") "" -- incomplete, as usual.. -- svg (PassThroughToken (PassThroughValue n)) = -- svg (PointToken i) = svg (LineToken i j) = "<polyline stroke=\"rgb("++svgRGBproject i++")\" " ++"points=\""++(concatMap svgXYproject [i,j])++"\"/>" -- what's this? svg (LineResetToken i j) = "<polyline stroke=\"rgb("++svgRGBproject i++")\" " ++"points=\""++(concatMap svgXYproject [i,j])++"\"/>" -- colour the polygon by its first vertex.. svg (PolygonToken is) = "<polygon fill=\"rgb("++svgRGBproject (head is)++")\" " ++"points=\""++(concatMap svgXYproject is)++"\"/>" svg _ = error "Author is too lazy for a complete svg FeedbackToken" -- Write contents of entire buffer. printBuffer :: GLint -> FeedbackBuffer -> IO () printBuffer size buffer = do Just tokens <- getFeedbackTokens size buffer (WindowPosition x y, WindowSize w h) <- get VarViewport putStrLn "<?xml version=\"1.0\" standalone=\"no\"?>" putStrLn "<!DOCTYPE svg PUBLIC \"-//W3C//DTD SVG 20010904//EN\"" putStrLn " \"http://www.w3.org/TR/2001/REC-SVG-20010904/DTD/svg10.dtd\">" putStrLn $ "<svg width=\""++show ((fromIntegral w)/50)++"cm\" " ++"height=\""++show ((fromIntegral h)/50)++"cm\" " ++"viewBox=\"0 0 "++show w++" "++show h++"\"" putStrLn " xmlns=\"http://www.w3.org/2000/svg\"" putStrLn " xmlns:xlink=\"http://www.w3.org/1999/xlink\">" putStrLn $ "<g transform=\"translate(0,"++show h++")\">" mapM_ (putStrLn . svg) tokens putStrLn "</g>" putStrLn "</svg>" -- main function, call this in your display callback instead of -- the direct rendering part (here assumed to be executing a -- display list) when you want to output a single scene as SVG. -- feedback buffer overflow tends to be the main error source, -- but I've got no idea how to estimate the size correctly.. printDisplay :: DisplayList -> DisplayAction printDisplay dl = do feedBuffer <- makeFeedbackBuffer 1048576 ThreeDColor' feedbackBuffer feedBuffer renderMode Feedback callList dl size <- renderMode Render printBuffer size feedBuffer freeFeedbackBuffer feedBuffer

1 0

more on FunGEn feedback
by Andre W B Furtado 22 Jul '02

22 Jul '02

BTW, Ronald Legere sent me some nice feedback. Sorry for not mentioning him. -- Andre

1 0

Hi all
by Nick Name 09 Jul '02

09 Jul '02

Just wanted to tell anybody that I am here. Is this list active? Bye Vincenzo Ciancia

3 6