- glNewList (bp->title_list, GL_COMPILE);
- if (p && do_titles)
- {
- char label[1024];
- char name2[255];
- strcpy (name2, p->name);
- if (*p->class)
- sprintf (name2 + strlen(name2), " (%s)", p->class);
-
- sprintf (label,
- "Polyhedron %d: \t%s\n\n"
- "Wythoff Symbol:\t%s\n"
- "Vertex Configuration:\t%s\n"
- "Symmetry Group:\t%s\n"
- /* "Dual of: \t%s\n" */
- "\n"
- "Faces:\t %d\n"
- "Edges:\t %d\n"
- "Vertices:\t %d\n"
- "Density:\t %d\n"
- "Euler:\t%s%d\n",
- bp->which, name2, p->wythoff, p->config, p->group,
- /* p->dual, */
- p->logical_faces, p->nedges, p->logical_vertices,
- p->density, (p->chi < 0 ? "" : " "), p->chi);
-
- {
-# ifdef HAVE_GLBITMAP
- XFontStruct *f;
- GLuint fl;
-# else /* !HAVE_GLBITMAP */
- texture_font_data *f;
-# endif /* !HAVE_GLBITMAP */
- if (MI_WIDTH(mi) >= 500 && MI_HEIGHT(mi) >= 375)
-# ifdef HAVE_GLBITMAP
- f = bp->xfont1, fl = bp->font1_dlist; /* big font */
-# else /* !HAVE_GLBITMAP */
- f = bp->font1_data;
-# endif /* !HAVE_GLBITMAP */
- else if (MI_WIDTH(mi) >= 350 && MI_HEIGHT(mi) >= 260)
-# ifdef HAVE_GLBITMAP
- f = bp->xfont2, fl = bp->font2_dlist; /* small font */
-# else /* !HAVE_GLBITMAP */
- f = bp->font2_data; /* small font */
-# endif /* !HAVE_GLBITMAP */
- else
-# ifdef HAVE_GLBITMAP
- f = bp->xfont3, fl = bp->font3_dlist; /* tiny font */
-# else /* !HAVE_GLBITMAP */
- f = bp->font3_data; /* tiny font */
-# endif /* !HAVE_GLBITMAP */
-
- glColor3f (0.8, 0.8, 0);
- print_gl_string (mi->dpy, f,
-# ifdef HAVE_GLBITMAP
- fl,
-# endif /* HAVE_GLBITMAP */
- mi->xgwa.width, mi->xgwa.height,
- 10, mi->xgwa.height - 10,
- label, False);
- }
- }
- glEndList ();