Bug #47767 for OpenGL: Font not found error from test.pl

Hi Chris, Thanks for the reply. Sorry for my late reply. I was checking the versions with Kpackage (too) late at night, I managed to completely remove KDE.... Anyhow, it is re-installed now. Here are the data you requested to get more insight into the problem: Please find the example script attached. I mainly copied the code from the test.pl perl polys1.pl gives: freeglut (polys1.pl): font 0x949c6c20 not found The font I call in the sample program is GLUT_BITMAP_HELVETICA_18 According to the GLUT specs this is: -adobe-helvetica-medium-r-normal--18-180-75-75-p-98-iso8859-1 xfontsel shows me this font when I specify it. So it is on the system, I presume. Other opengl perl apps work fine. kernel: 2.6.26-2-amd64 KDE: 5:48 OpenGL: 1.4 Mesa 7.0.4 Kernel module: i915 GLU version: 1.3 freeglut3(-dev) 2.4.0-6.1 per -V: Summary of my perl5 (revision 5 version 10 subversion 0) configuration: Platform: osname=linux, osvers=2.6.26-1-vserver-amd64, archname=x86_64-linux-gnu-thread-multi uname='linux excelsior 2.6.26-1-vserver-amd64 #1 smp sat nov 8 20:24:14 utc 2008 x86_64 gnulinux ' config_args='-Dusethreads -Duselargefiles -Dccflags=-DDEBIAN -Dcccdlflags=-fPIC -Darchname=x86_64-linux-gnu -Dprefix=/usr -Dprivlib=/usr/share/perl/5.10 -Darchlib=/usr/lib/perl/5.10 -Dvendorprefix=/usr -Dvendorlib=/usr/share/perl5 -Dvendorarch=/usr/lib/perl5 -Dsiteprefix=/usr/local -Dsitelib=/usr/local/share/perl/5.10.0 -Dsitearch=/usr/local/lib/perl/5.10.0 -Dman1dir=/usr/share/man/man1 -Dman3dir=/usr/share/man/man3 -Dsiteman1dir=/usr/local/man/man1 -Dsiteman3dir=/usr/local/man/man3 -Dman1ext=1 -Dman3ext=3perl -Dpager=/usr/bin/sensible-pager -Uafs -Ud_csh -Ud_ualarm -Uusesfio -Uusenm -DDEBUGGING=-g -Doptimize=-O2 -Duseshrplib -Dlibperl=libperl.so.5.10.0 -Dd_dosuid -des' hint=recommended, useposix=true, d_sigaction=define useithreads=define, usemultiplicity=define useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef use64bitint=define, use64bitall=define, uselongdouble=undef usemymalloc=n, bincompat5005=undef Compiler: cc='cc', ccflags ='-D_REENTRANT -D_GNU_SOURCE -DDEBIAN -fno-strict-aliasing -pipe -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64', optimize='-O2 -g', cppflags='-D_REENTRANT -D_GNU_SOURCE -DDEBIAN -fno-strict-aliasing -pipe -I/usr/local/include' ccversion='', gccversion='4.3.2', gccosandvers='' intsize=4, longsize=8, ptrsize=8, doublesize=8, byteorder=12345678 d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16 ivtype='long', ivsize=8, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8 alignbytes=8, prototype=define Linker and Libraries: ld='cc', ldflags =' -L/usr/local/lib' libpth=/usr/local/lib /lib /usr/lib /lib64 /usr/lib64 libs=-lgdbm -lgdbm_compat -ldb -ldl -lm -lpthread -lc -lcrypt perllibs=-ldl -lm -lpthread -lc -lcrypt libc=/lib/libc-2.7.so, so=so, useshrplib=true, libperl=libperl.so.5.10.0 gnulibc_version='2.7' Dynamic Linking: dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E' cccdlflags='-fPIC', lddlflags='-shared -O2 -g -L/usr/local/lib' Characteristics of this binary (from libperl): Compile-time options: MULTIPLICITY PERL_DONT_CREATE_GVSV PERL_IMPLICIT_CONTEXT PERL_MALLOC_WRAP USE_64_BIT_ALL USE_64_BIT_INT USE_ITHREADS USE_LARGE_FILES USE_PERLIO USE_REENTRANT_API Built under linux Compiled at Jan 1 2009 15:42:01 @INC: /etc/perl /usr/local/lib/perl/5.10.0 /usr/local/share/perl/5.10.0 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.10 /usr/share/perl/5.10 * Full OpenGL module information especially the value of $OpenGL::VERSION. Also good would be the Config.pm file from the build/test/install as that has arguments used to compile. I had perl OpenGL installed with KPackage(manager) version: libopengl-perl 0.56.dfsg.1-2+b1 source libopengl-perl (0.56.dfsg.1-2) So this is too old. I downloaded 0.57. This is the output for perl Makefile.PL interface=FREEGLUT verbose found libs: GL = 'GL' GLU = 'GLU' GLUT = 'glut' GLX = 'glx' MESA = 'OSMesa' Testing for OpenGL Extensions Testing GLUT version glversion: cd utils;make -f Makefile GLUT_LIB=glut GLUT_DEF=HAVE_GLUT clean;make -f Makefile GLUT_LIB=glut GLUT_DEF=HAVE_GLUT No protocol specified freeglut (./glversion): failed to open display ':0.0' make: *** [glversion.txt] Error 1 rm -f glversion.txt rm -f glversion rm -f glversion.o cc -I/usr/include -I/usr/X11R6/include -I/usr/local/include -I/usr/openwin/include -DHAVE_GLUT -c glversion.c cc glversion.o -L/usr/lib -L/usr/X11R6/lib -L/usr/local/lib -L/usr/openwin/lib -L/usr/lib/xorg/modules -L/usr/X11R6/lib/modules -L/usr/lib/xorg/modules/extensions -L/usr/X11R6/lib/modules/extensions -lGL -lglut -lGLU -lXi -lXmu -lXext -lX11 -lm -o glversion chmod u+x glversion ./glversion > glversion.txt FREEGLUT interface requires FreeGLUT Falling back to the GLUT interface Using interface: GLUT resulting libs: GL = 'GL' GLU = 'GLU' GLUT = 'glut' GLX = 'glx' MESA = 'OSMesa' MakeMaker configuration: AUTHOR => q[Bob 'grafman' Free <grafman at graphcomp.com>] DEFINE => q[ -DHAVE_GL -DHAVE_GLU -DHAVE_GLUT -DHAVE_MESA -DGL_GLEXT_LEGACY] EXE_FILES => [] INC => q[-I/usr/include -I/usr/local/include] LDFROM => q[$(OBJECT) ] LIBS => q[-L/usr/lib -L/usr/X11R6/lib -L/usr/local/lib -L/usr/openwin/lib -L/usr/lib/xorg/modules -L/usr/X11R6/lib/modules -L/usr/lib/xorg/modules/extensions -L/usr/X11R6/lib/modules/extensions -lGL -lOSMesa -lglut -lGLU] NAME => q[OpenGL] OBJECT => q[$(BASEEXT)$(OBJ_EXT) gl_util$(OBJ_EXT)] OPTIMIZE => undef PM => { OpenGL.pm=>q[$(INST_LIBDIR)/OpenGL.pm], Config.pm=>q[$(INST_LIBDIR)/OpenGL/Config.pm], OpenGL.pod=>q[$(INST_LIBDIR)/OpenGL.pod] } PREREQ_PM => { } VERSION_FROM => q[OpenGL.pm] XSPROTOARG => q[-noprototypes] clean => { FILES=>q[utils/glversion.txt utils/glversion utils/glversion.o] } dynamic_lib => { } Using PERL=/usr/bin/perl Potential libraries are '-L/usr/lib -L/usr/X11R6/lib -L/usr/local/lib -L/usr/openwin/lib -L/usr/lib/xorg/modules -L/usr/X11R6/lib/modules -L/usr/lib/xorg/modules/extensions -L/usr/X11R6/lib/modules/extensions -lGL -lOSMesa -lglut -lGLU': -L/usr/X11R6/lib ignored, directory does not exist -L/usr/openwin/lib ignored, directory does not exist -L/usr/X11R6/lib/modules ignored, directory does not exist -L/usr/X11R6/lib/modules/extensions ignored, directory does not exist '-lGL' found at /usr/lib/libGL.so.1.2 '-lOSMesa' found at /usr/lib/libOSMesa.so.6.5.3 '-lglut' found at /usr/lib/libglut.so.3.8.0 '-lGLU' found at /usr/lib/libGLU.so.1.3.070004 Writing Makefile for OpenGL I hope that this info helps a bit .... Thanks agian. Regards, Wim de Vries Chris Marshall via RT wrote: Show quoted text

#!/usr/bin/perl -w use strict; use warnings; use OpenGL qw/ :all /; my $fly; my $halftone; my @halftone0; my @fly0; sub display { glClear (GL_COLOR_BUFFER_BIT); glColor3f (1.0, 1.0, 1.0); my $buf = sprintf "FBO: %d", 1; glRasterPos2i(10,10); glutBitmapCharacter(GLUT_BITMAP_HELVETICA_18, '3'); glColor3f (1.0, 0, 0); glBegin(GL_LINES); glVertex3f(2, 2, 0.0); glVertex3f(2, 143, 0.0); glVertex3f(2, 143, 0.0); glVertex3f(348, 143, 0.0); glVertex3f(348, 143, 0.0); glVertex3f(348, 2, 0.0); glVertex3f(348, 2, 0.0); glVertex3f(2, 2, 0.0); glEnd(); glFlush (); } sub init { glClearColor (0.0, 0.0, 0.0, 0.0); glShadeModel (GL_FLAT); } sub reshape {my ($w, $h) = @_; glViewport (0, 0, $w, $h); glMatrixMode (GL_PROJECTION); glLoadIdentity (); gluOrtho2D (0.0, $w-50, 0.0, $h); glMatrixMode(GL_MODELVIEW); glLoadIdentity (); } sub keyboard { my($key, $x, $y) = @_; if ($key == 27) { exit(0); # break; } } glutInit(); # glutInit(&argc, argv); glutInitDisplayMode (GLUT_SINGLE | GLUT_RGB); glutInitWindowSize (350, 150); my $Window_ID = glutCreateWindow("polys1changed"); # glutCreateWindow (argv[0]); init (); glutDisplayFunc(\&display); glutReshapeFunc(\&reshape); glutKeyboardFunc (\&keyboard); glutMainLoop(); return 0; __END__

Hi Chris, You were right. It was using 0.57. Sorry for that, I thought I downloaded 0.57_01. So, I now installed 0.57_01 $OpenGL::VERSION now is "0.5701" Still, the sample script gives the same error: freeglut (polys1.pl): font 0x3db0fc20 not found Please find the Config.pm attached. Also the output from glversion.pl below, if that helps. Thanks again. Regards, Wim glversion.pl: OpenGL version 1.4 Mesa 7.0.4 Vendor: Tungsten Graphics, Inc Renderer: Mesa DRI Intel(R) 965GM 4.1.3002 Supported extensions: * GL_ARB_depth_texture * GL_ARB_draw_buffers * GL_ARB_fragment_program * GL_ARB_fragment_shader * GL_ARB_imaging * GL_ARB_multisample * GL_ARB_multitexture * GL_ARB_point_parameters * GL_ARB_point_sprite * GL_ARB_shader_objects * GL_ARB_shading_language_100 * GL_ARB_shading_language_120 * GL_ARB_shadow * GL_ARB_texture_border_clamp * GL_ARB_texture_compression * GL_ARB_texture_cube_map * GL_ARB_texture_env_add * GL_ARB_texture_env_combine * GL_ARB_texture_env_crossbar * GL_ARB_texture_env_dot3 * GL_ARB_texture_mirrored_repeat * GL_ARB_texture_non_power_of_two * GL_ARB_texture_rectangle * GL_ARB_transpose_matrix * GL_ARB_vertex_buffer_object * GL_ARB_vertex_program * GL_ARB_vertex_shader * GL_ARB_window_pos * GL_EXT_abgr * GL_EXT_bgra * GL_EXT_blend_color * GL_EXT_blend_equation_separate * GL_EXT_blend_func_separate * GL_EXT_blend_logic_op * GL_EXT_blend_minmax * GL_EXT_blend_subtract * GL_EXT_clip_volume_hint * GL_EXT_cull_vertex * GL_EXT_compiled_vertex_array * GL_EXT_convolution * GL_EXT_copy_texture * GL_EXT_draw_range_elements * GL_EXT_fog_coord * GL_EXT_histogram * GL_EXT_multi_draw_arrays * GL_EXT_packed_pixels * GL_EXT_point_parameters * GL_EXT_polygon_offset * GL_EXT_rescale_normal * GL_EXT_secondary_color * GL_EXT_separate_specular_color * GL_EXT_shadow_funcs * GL_EXT_stencil_wrap * GL_EXT_subtexture * GL_EXT_texture * GL_EXT_texture3D * GL_EXT_texture_edge_clamp * GL_EXT_texture_env_add * GL_EXT_texture_env_combine * GL_EXT_texture_env_dot3 * GL_EXT_texture_filter_anisotropic * GL_EXT_texture_lod_bias * GL_EXT_texture_object * GL_EXT_texture_rectangle * GL_EXT_texture_sRGB * GL_EXT_vertex_array * GL_3DFX_texture_compression_FXT1 * GL_APPLE_client_storage * GL_APPLE_packed_pixels * GL_ATI_blend_equation_separate * GL_ATI_separate_stencil * GL_IBM_rasterpos_clip * GL_IBM_texture_mirrored_repeat * GL_INGR_blend_func_separate * GL_MESA_pack_invert * GL_MESA_ycbcr_texture * GL_MESA_window_pos * GL_NV_blend_square * GL_NV_light_max_exponent * GL_NV_point_sprite * GL_NV_texture_rectangle * GL_NV_texgen_reflection * GL_OES_read_format * GL_SGI_color_matrix * GL_SGI_color_table * GL_SGIS_generate_mipmap * GL_SGIS_texture_border_clamp * GL_SGIS_texture_edge_clamp * GL_SGIS_texture_lod * GL_SGIX_depth_texture * GL_SUN_multi_draw_arrays Chris Marshall via RT wrote: Show quoted text

# This is the Perl OpenGL build configuration file. # It contains the final OpenGL build arguements from # the configuration process. Access the values by # use OpenGL::Config which defines the variable # containing the hash arguments from # the WriteMakefile() call. # $OpenGL::Config = { 'NAME' => 'OpenGL', 'LIBS' => '-L/usr/lib -L/usr/X11R6/lib -L/usr/local/lib -L/usr/openwin/lib -L/usr/lib/xorg/modules -L/usr/X11R6/lib/modules -L/usr/lib/xorg/modules/extensions -L/usr/X11R6/lib/modules/extensions -lglut -lGL -lOSMesa -lglut -lGLU', 'INC' => '-I/usr/include -I/usr/local/include', 'AUTHOR' => 'Bob \'grafman\' Free <grafman at graphcomp.com>', 'DEFINE' => '-DHAVE_VER -DHAVE_FREEGLUT -DHAVE_GL -DHAVE_GLU -DHAVE_GLUT -DHAVE_MESA -DGL_GLEXT_LEGACY', 'dynamic_lib' => {}, 'OBJECT' => '$(BASEEXT)$(OBJ_EXT) gl_util$(OBJ_EXT) pogl_const$(OBJ_EXT) pogl_gl_top$(OBJ_EXT) pogl_glu$(OBJ_EXT) pogl_rpn$(OBJ_EXT) pogl_glut$(OBJ_EXT) pogl_gl_Accu_GetM$(OBJ_EXT) pogl_gl_GetP_Pass$(OBJ_EXT) pogl_gl_Mult_Prog$(OBJ_EXT) pogl_gl_Pixe_Ver2$(OBJ_EXT) pogl_gl_Prog_Clam$(OBJ_EXT) pogl_gl_Tex2_Draw$(OBJ_EXT) pogl_gl_Ver3_Tex1$(OBJ_EXT) pogl_gl_Vert_Multi$(OBJ_EXT)', 'clean' => { 'FILES' => 'Config.pm utils/glversion.txt utils/glversion utils/glversion.o' }, 'LDFROM' => '$(OBJECT) ', 'OPTIMIZE' => undef, 'PM' => { 'OpenGL.pm' => '$(INST_LIBDIR)/OpenGL.pm', 'Config.pm' => '$(INST_LIBDIR)/OpenGL/Config.pm', 'OpenGL.pod' => '$(INST_LIBDIR)/OpenGL.pod' }, 'EXE_FILES' => [], 'VERSION_FROM' => 'OpenGL.pm', 'XSPROTOARG' => '-noprototypes' }; 1; __END__

On Thu Aug 27 02:27:03 2009, wsvries@xs4all.nl wrote: Show quoted text
I am unable reproduce any POGL failures. I've attached two sample programs using the GLUT font routines: one from the original GLUT distribution and one of the same but using POGL instead. Both give the same output on my system. I got no font display from your test program without changing the call to glutBitmapCharacter() as in the uploaded code. Looks like this is your problem. Cheers, Chris

#!/usr/bin/perl use OpenGL qw(:all); my $font = GLUT_BITMAP_TIMES_ROMAN_24; my @fonts = ( GLUT_BITMAP_9_BY_15, GLUT_BITMAP_TIMES_ROMAN_10, GLUT_BITMAP_TIMES_ROMAN_24 ); my $defaultMessage = "GLUT means OpenGL."; my $message = $defaultMessage; sub selectFont { my $newfont = shift; $font = $fonts[$newfont]; glutPostRedisplay(); } sub selectMessage { my $msg = shift; $message = "abcdefghijklmnop" if $msg==1; $message = "ABCDEFGHIJKLMNOP" if $msg==2; } sub selectColor(int color) { my $color = shift; glColor3f(0.0, 1.0, 0.0) if $color==1; glColor3f(1.0, 0.0, 0.0) if $color==2; glColor3f(1.0, 1.0, 1.0) if $color==3; glutPostRedisplay(); } sub tick { glutPostRedisplay(); } sub output { my $x = shift; my $y = shift; my $string = shift; my ($len, $i); glRasterPos2f($x, $y); $len = length($string); for ($i = 0; $i < $len; $i++) { glutBitmapCharacter($font, ord(substr($string, $i, 1))); } } sub display { glClear(GL_COLOR_BUFFER_BIT); output(0, 24, "This is written in a GLUT bitmap font."); output(100, 100, $message); output(50, 145, "(positioned in pixels with upper-left origin)"); glutSwapBuffers(); } sub reshape { my $w = shift; my $h = shift; glViewport(0, 0, $w, $h); glMatrixMode(GL_PROJECTION); glLoadIdentity(); gluOrtho2D(0, $w, $h, 0); glMatrixMode(GL_MODELVIEW); } # # main(int argc, char **argv) # my ($i, $msg_submenu, $color_submenu); glutInit(); glutInitDisplayMode(GLUT_DOUBLE | GLUT_RGB); glutInitWindowSize(500, 150); glutCreateWindow("GLUT bitmap font example"); glClearColor(0.0, 0.0, 0.0, 1.0); glutDisplayFunc(\&display); glutReshapeFunc(\&reshape); glutIdleFunc(\&tick); $msg_submenu = glutCreateMenu(\&selectMessage); glutAddMenuEntry("abc", 1); glutAddMenuEntry("ABC", 2); $color_submenu = glutCreateMenu(\&selectColor); glutAddMenuEntry("Green", 1); glutAddMenuEntry("Red", 2); glutAddMenuEntry("White", 3); glutCreateMenu(\&selectFont); glutAddMenuEntry("9 by 15", 0); glutAddMenuEntry("Times Roman 10", 1); glutAddMenuEntry("Times Roman 24", 2); glutAddSubMenu("Messages", $msg_submenu); glutAddSubMenu("Color", $color_submenu); glutAttachMenu(GLUT_RIGHT_BUTTON); glutMainLoop();

/* Copyright (c) Mark J. Kilgard, 1994. */ /* This program is freely distributable without licensing fees and is provided without guarantee or warrantee expressed or implied. This program is -not- in the public domain. */ #include <string.h> #include <GL/glut.h> void *font = GLUT_BITMAP_TIMES_ROMAN_24; void *fonts[] = { GLUT_BITMAP_9_BY_15, GLUT_BITMAP_TIMES_ROMAN_10, GLUT_BITMAP_TIMES_ROMAN_24 }; char defaultMessage[] = "GLUT means OpenGL."; char *message = defaultMessage; void selectFont(int newfont) { font = fonts[newfont]; glutPostRedisplay(); } void selectMessage(int msg) { switch (msg) { case 1: message = "abcdefghijklmnop"; break; case 2: message = "ABCDEFGHIJKLMNOP"; break; } } void selectColor(int color) { switch (color) { case 1: glColor3f(0.0, 1.0, 0.0); break; case 2: glColor3f(1.0, 0.0, 0.0); break; case 3: glColor3f(1.0, 1.0, 1.0); break; } glutPostRedisplay(); } void tick(void) { glutPostRedisplay(); } void output(int x, int y, char *string) { int len, i; glRasterPos2f(x, y); len = (int) strlen(string); for (i = 0; i < len; i++) { glutBitmapCharacter(font, string[i]); } } void display(void) { glClear(GL_COLOR_BUFFER_BIT); output(0, 24, "This is written in a GLUT bitmap font."); output(100, 100, message); output(50, 145, "(positioned in pixels with upper-left origin)"); glutSwapBuffers(); } void reshape(int w, int h) { glViewport(0, 0, w, h); glMatrixMode(GL_PROJECTION); glLoadIdentity(); gluOrtho2D(0, w, h, 0); glMatrixMode(GL_MODELVIEW); } int main(int argc, char **argv) { int i, msg_submenu, color_submenu; glutInit(&argc, argv); for (i = 1; i < argc; i++) { if (!strcmp(argv[i], "-mono")) { font = GLUT_BITMAP_9_BY_15; } } glutInitDisplayMode(GLUT_DOUBLE | GLUT_RGB); glutInitWindowSize(500, 150); glutCreateWindow("GLUT bitmap font example"); glClearColor(0.0, 0.0, 0.0, 1.0); glutDisplayFunc(display); glutReshapeFunc(reshape); glutIdleFunc(tick); msg_submenu = glutCreateMenu(selectMessage); glutAddMenuEntry("abc", 1); glutAddMenuEntry("ABC", 2); color_submenu = glutCreateMenu(selectColor); glutAddMenuEntry("Green", 1); glutAddMenuEntry("Red", 2); glutAddMenuEntry("White", 3); glutCreateMenu(selectFont); glutAddMenuEntry("9 by 15", 0); glutAddMenuEntry("Times Roman 10", 1); glutAddMenuEntry("Times Roman 24", 2); glutAddSubMenu("Messages", msg_submenu); glutAddSubMenu("Color", color_submenu); glutAttachMenu(GLUT_RIGHT_BUTTON); glutMainLoop(); return 0; /* ANSI C requires main to return int. */ }