Home My Page Projects Code Snippets Project Openings 3D graphics for Standard ML
Summary Activity SCM

SCM Repository

[sml3d] View of /trunk/sml3d/src/glut/glut-glue.c
ViewVC logotype

View of /trunk/sml3d/src/glut/glut-glue.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 996 - (download) (as text) (annotate)
Thu Jan 13 21:25:08 2011 UTC (8 years, 9 months ago) by pavelk
File size: 1038 byte(s)
Added windows header to some files that need it for sml code generation.
/* glut-glue.c
 *
 * COPYRIGHT (c) 2008 John Reppy (http://www.cs.uchicago.edu/~jhr)
 * All rights reserved.
 *
 * Glue code for connecting the GLUT library with SML.
 */

#if defined(__APPLE__) || defined(MACOSX)
#  include <GLUT/glut.h>
#elif defined (WIN32)
#  include <windows.h>
#  include <GL/gl.h>
#  include <GL/glut.h>
#else
#  include <GL/gl.h>
#  include <GL/glut.h>
#endif
#include "glut-glue.h"

/* local variables for the GLUT font names */
typedef void *GlutFont_t;
GlutFont_t	GlutFontStrokeRoman		= GLUT_STROKE_ROMAN;
GlutFont_t	GlutFontStrokeMonoRoman		= GLUT_STROKE_MONO_ROMAN;
GlutFont_t	GlutFontBitmap9By15		= GLUT_BITMAP_9_BY_15;
GlutFont_t	GlutFontBitmap8By13		= GLUT_BITMAP_8_BY_13;
GlutFont_t	GlutFontBitmapTimesRoman10	= GLUT_BITMAP_TIMES_ROMAN_10;
GlutFont_t	GlutFontBitmapTimesRoman24	= GLUT_BITMAP_TIMES_ROMAN_24;
GlutFont_t	GlutFontBitmapHelvetica10	= GLUT_BITMAP_HELVETICA_10;
GlutFont_t	GlutFontBitmapHelvetica12	= GLUT_BITMAP_HELVETICA_12;
GlutFont_t	GlutFontBitmapHelvetica18	= GLUT_BITMAP_HELVETICA_18;


root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0