timers internally now use 64bit unsigned int, if available
[freeglut] / src / Common / freeglut_font.c
index 576a724..e956d5b 100644 (file)
-/*\r
- * freeglut_font.c\r
- *\r
- * Bitmap and stroke fonts displaying.\r
- *\r
- * Copyright (c) 1999-2000 Pawel W. Olszta. All Rights Reserved.\r
- * Written by Pawel W. Olszta, <olszta@sourceforge.net>\r
- * Creation date: Thu Dec 16 1999\r
- *\r
- * Permission is hereby granted, free of charge, to any person obtaining a\r
- * copy of this software and associated documentation files (the "Software"),\r
- * to deal in the Software without restriction, including without limitation\r
- * the rights to use, copy, modify, merge, publish, distribute, sublicense,\r
- * and/or sell copies of the Software, and to permit persons to whom the\r
- * Software is furnished to do so, subject to the following conditions:\r
- *\r
- * The above copyright notice and this permission notice shall be included\r
- * in all copies or substantial portions of the Software.\r
- *\r
- * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS\r
- * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,\r
- * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL\r
- * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER\r
- * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN\r
- * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.\r
- */\r
-\r
-#include <GL/freeglut.h>\r
-#include "freeglut_internal.h"\r
-\r
-/*\r
- * TODO BEFORE THE STABLE RELEASE:\r
- *\r
- *  Test things out ...\r
- */\r
-\r
-/* -- IMPORT DECLARATIONS -------------------------------------------------- */\r
-\r
-/*\r
- * These are the font faces defined in freeglut_font_data.c file:\r
- */\r
-extern SFG_Font fgFontFixed8x13;\r
-extern SFG_Font fgFontFixed9x15;\r
-extern SFG_Font fgFontHelvetica10;\r
-extern SFG_Font fgFontHelvetica12;\r
-extern SFG_Font fgFontHelvetica18;\r
-extern SFG_Font fgFontTimesRoman10;\r
-extern SFG_Font fgFontTimesRoman24;\r
-extern SFG_StrokeFont fgStrokeRoman;\r
-extern SFG_StrokeFont fgStrokeMonoRoman;\r
-\r
-\r
-/* -- PRIVATE FUNCTIONS ---------------------------------------------------- */\r
-\r
-/*\r
- * Matches a font ID with a SFG_Font structure pointer.\r
- * This was changed to match the GLUT header style.\r
- */\r
-static SFG_Font* fghFontByID( void* font )\r
-{\r
-    if( font == GLUT_BITMAP_8_BY_13        )\r
-        return &fgFontFixed8x13;\r
-    if( font == GLUT_BITMAP_9_BY_15        )\r
-        return &fgFontFixed9x15;\r
-    if( font == GLUT_BITMAP_HELVETICA_10   )\r
-        return &fgFontHelvetica10;\r
-    if( font == GLUT_BITMAP_HELVETICA_12   )\r
-        return &fgFontHelvetica12;\r
-    if( font == GLUT_BITMAP_HELVETICA_18   )\r
-        return &fgFontHelvetica18;\r
-    if( font == GLUT_BITMAP_TIMES_ROMAN_10 )\r
-        return &fgFontTimesRoman10;\r
-    if( font == GLUT_BITMAP_TIMES_ROMAN_24 )\r
-        return &fgFontTimesRoman24;\r
-\r
-    fgWarning( "font 0x%08x not found", font );\r
-    return 0;\r
-}\r
-\r
-/*\r
- * Matches a font ID with a SFG_StrokeFont structure pointer.\r
- * This was changed to match the GLUT header style.\r
- */\r
-static SFG_StrokeFont* fghStrokeByID( void* font )\r
-{\r
-    if( font == GLUT_STROKE_ROMAN      )\r
-        return &fgStrokeRoman;\r
-    if( font == GLUT_STROKE_MONO_ROMAN )\r
-        return &fgStrokeMonoRoman;\r
-\r
-    fgWarning( "stroke font 0x%08x not found", font );\r
-    return 0;\r
-}\r
-\r
-\r
-/* -- INTERFACE FUNCTIONS -------------------------------------------------- */\r
-\r
-/*\r
- * Draw a bitmap character\r
- */\r
-void FGAPIENTRY glutBitmapCharacter( void* fontID, int character )\r
-{\r
-    const GLubyte* face;\r
-    SFG_Font* font;\r
-    FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutBitmapCharacter" );\r
-    font = fghFontByID( fontID );\r
-    freeglut_return_if_fail( ( character >= 1 )&&( character < 256 ) );\r
-    freeglut_return_if_fail( font );\r
-\r
-    /*\r
-     * Find the character we want to draw (???)\r
-     */\r
-    face = font->Characters[ character ];\r
-\r
-    glPushClientAttrib( GL_CLIENT_PIXEL_STORE_BIT );\r
-    glPixelStorei( GL_UNPACK_SWAP_BYTES,  GL_FALSE );\r
-    glPixelStorei( GL_UNPACK_LSB_FIRST,   GL_FALSE );\r
-    glPixelStorei( GL_UNPACK_ROW_LENGTH,  0        );\r
-    glPixelStorei( GL_UNPACK_SKIP_ROWS,   0        );\r
-    glPixelStorei( GL_UNPACK_SKIP_PIXELS, 0        );\r
-    glPixelStorei( GL_UNPACK_ALIGNMENT,   1        );\r
-    glBitmap(\r
-        face[ 0 ], font->Height,      /* The bitmap's width and height  */\r
-        font->xorig, font->yorig,     /* The origin in the font glyph   */\r
-        ( float )( face[ 0 ] ), 0.0,  /* The raster advance -- inc. x,y */\r
-        ( face + 1 )                  /* The packed bitmap data...      */\r
-    );\r
-    glPopClientAttrib( );\r
-}\r
-\r
-void FGAPIENTRY glutBitmapString( void* fontID, const unsigned char *string )\r
-{\r
-    unsigned char c;\r
-    float x = 0.0f ;\r
-    SFG_Font* font;\r
-    FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutBitmapString" );\r
-    font = fghFontByID( fontID );\r
-    freeglut_return_if_fail( font );\r
-    if ( !string || ! *string )\r
-        return;\r
-\r
-    glPushClientAttrib( GL_CLIENT_PIXEL_STORE_BIT );\r
-    glPixelStorei( GL_UNPACK_SWAP_BYTES,  GL_FALSE );\r
-    glPixelStorei( GL_UNPACK_LSB_FIRST,   GL_FALSE );\r
-    glPixelStorei( GL_UNPACK_ROW_LENGTH,  0        );\r
-    glPixelStorei( GL_UNPACK_SKIP_ROWS,   0        );\r
-    glPixelStorei( GL_UNPACK_SKIP_PIXELS, 0        );\r
-    glPixelStorei( GL_UNPACK_ALIGNMENT,   1        );\r
-\r
-    /*\r
-     * Step through the string, drawing each character.\r
-     * A newline will simply translate the next character's insertion\r
-     * point back to the start of the line and down one line.\r
-     */\r
-    while( ( c = *string++) )\r
-        if( c == '\n' )\r
-        {\r
-            glBitmap ( 0, 0, 0, 0, -x, (float) -font->Height, NULL );\r
-            x = 0.0f;\r
-        }\r
-        else  /* Not an EOL, draw the bitmap character */\r
-        {\r
-            const GLubyte* face = font->Characters[ c ];\r
-\r
-            glBitmap(\r
-                face[ 0 ], font->Height,     /* Bitmap's width and height    */\r
-                font->xorig, font->yorig,    /* The origin in the font glyph */\r
-                ( float )( face[ 0 ] ), 0.0, /* The raster advance; inc. x,y */\r
-                ( face + 1 )                 /* The packed bitmap data...    */\r
-            );\r
-\r
-            x += ( float )( face[ 0 ] );\r
-        }\r
-\r
-    glPopClientAttrib( );\r
-}\r
-\r
-/*\r
- * Returns the width in pixels of a font's character\r
- */\r
-int FGAPIENTRY glutBitmapWidth( void* fontID, int character )\r
-{\r
-    SFG_Font* font;\r
-    FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutBitmapWidth" );\r
-    font = fghFontByID( fontID );\r
-    freeglut_return_val_if_fail( character > 0 && character < 256, 0 );\r
-    freeglut_return_val_if_fail( font, 0 );\r
-    return *( font->Characters[ character ] );\r
-}\r
-\r
-/*\r
- * Return the width of a string drawn using a bitmap font\r
- */\r
-int FGAPIENTRY glutBitmapLength( void* fontID, const unsigned char* string )\r
-{\r
-    unsigned char c;\r
-    int length = 0, this_line_length = 0;\r
-    SFG_Font* font;\r
-    FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutBitmapLength" );\r
-    font = fghFontByID( fontID );\r
-    freeglut_return_val_if_fail( font, 0 );\r
-    if ( !string || ! *string )\r
-        return 0;\r
-\r
-    while( ( c = *string++) )\r
-    {\r
-        if( c != '\n' )/* Not an EOL, increment length of line */\r
-            this_line_length += *( font->Characters[ c ]);\r
-        else  /* EOL; reset the length of this line */\r
-        {\r
-            if( length < this_line_length )\r
-                length = this_line_length;\r
-            this_line_length = 0;\r
-        }\r
-    }\r
-    if ( length < this_line_length )\r
-        length = this_line_length;\r
-\r
-    return length;\r
-}\r
-\r
-/*\r
- * Returns the height of a bitmap font\r
- */\r
-int FGAPIENTRY glutBitmapHeight( void* fontID )\r
-{\r
-    SFG_Font* font;\r
-    FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutBitmapHeight" );\r
-    font = fghFontByID( fontID );\r
-    freeglut_return_val_if_fail( font, 0 );\r
-    return font->Height;\r
-}\r
-\r
-/*\r
- * Draw a stroke character\r
- */\r
-void FGAPIENTRY glutStrokeCharacter( void* fontID, int character )\r
-{\r
-    const SFG_StrokeChar *schar;\r
-    const SFG_StrokeStrip *strip;\r
-    int i, j;\r
-    SFG_StrokeFont* font;\r
-    FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutStrokeCharacter" );\r
-    font = fghStrokeByID( fontID );\r
-    freeglut_return_if_fail( character >= 0 );\r
-    freeglut_return_if_fail( character < font->Quantity );\r
-    freeglut_return_if_fail( font );\r
-\r
-    schar = font->Characters[ character ];\r
-    freeglut_return_if_fail( schar );\r
-    strip = schar->Strips;\r
-\r
-    for( i = 0; i < schar->Number; i++, strip++ )\r
-    {\r
-        glBegin( GL_LINE_STRIP );\r
-        for( j = 0; j < strip->Number; j++ )\r
-            glVertex2f( strip->Vertices[ j ].X, strip->Vertices[ j ].Y );\r
-        glEnd( );\r
-                               glBegin( GL_POINTS );\r
-        for( j = 0; j < strip->Number; j++ )\r
-            glVertex2f( strip->Vertices[ j ].X, strip->Vertices[ j ].Y );\r
-                               glEnd( );\r
-    }\r
-    glTranslatef( schar->Right, 0.0, 0.0 );\r
-}\r
-\r
-void FGAPIENTRY glutStrokeString( void* fontID, const unsigned char *string )\r
-{\r
-    unsigned char c;\r
-    int i, j;\r
-    float length = 0.0;\r
-    SFG_StrokeFont* font;\r
-    FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutStrokeString" );\r
-    font = fghStrokeByID( fontID );\r
-    freeglut_return_if_fail( font );\r
-    if ( !string || ! *string )\r
-        return;\r
-\r
-    /*\r
-     * Step through the string, drawing each character.\r
-     * A newline will simply translate the next character's insertion\r
-     * point back to the start of the line and down one line.\r
-     */\r
-    while( ( c = *string++) )\r
-        if( c < font->Quantity )\r
-        {\r
-            if( c == '\n' )\r
-            {\r
-                glTranslatef ( -length, -( float )( font->Height ), 0.0 );\r
-                length = 0.0;\r
-            }\r
-            else  /* Not an EOL, draw the bitmap character */\r
-            {\r
-                const SFG_StrokeChar *schar = font->Characters[ c ];\r
-                if( schar )\r
-                {\r
-                    const SFG_StrokeStrip *strip = schar->Strips;\r
-\r
-                    for( i = 0; i < schar->Number; i++, strip++ )\r
-                    {\r
-                        glBegin( GL_LINE_STRIP );\r
-                        for( j = 0; j < strip->Number; j++ )\r
-                            glVertex2f( strip->Vertices[ j ].X,\r
-                                        strip->Vertices[ j ].Y);\r
-\r
-                        glEnd( );\r
-                    }\r
-\r
-                    length += schar->Right;\r
-                    glTranslatef( schar->Right, 0.0, 0.0 );\r
-                }\r
-            }\r
-        }\r
-}\r
-\r
-/*\r
- * Return the width in pixels of a stroke character\r
- */\r
-int FGAPIENTRY glutStrokeWidth( void* fontID, int character )\r
-{\r
-    const SFG_StrokeChar *schar;\r
-    SFG_StrokeFont* font;\r
-    FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutStrokeWidth" );\r
-    font = fghStrokeByID( fontID );\r
-    freeglut_return_val_if_fail( ( character >= 0 ) &&\r
-                                 ( character < font->Quantity ),\r
-                                 0\r
-    );\r
-    freeglut_return_val_if_fail( font, 0 );\r
-    schar = font->Characters[ character ];\r
-    freeglut_return_val_if_fail( schar, 0 );\r
-\r
-    return ( int )( schar->Right + 0.5 );\r
-}\r
-\r
-/*\r
- * Return the width of a string drawn using a stroke font\r
- */\r
-int FGAPIENTRY glutStrokeLength( void* fontID, const unsigned char* string )\r
-{\r
-    unsigned char c;\r
-    float length = 0.0;\r
-    float this_line_length = 0.0;\r
-    SFG_StrokeFont* font;\r
-    FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutStrokeLength" );\r
-    font = fghStrokeByID( fontID );\r
-    freeglut_return_val_if_fail( font, 0 );\r
-    if ( !string || ! *string )\r
-        return 0;\r
-\r
-    while( ( c = *string++) )\r
-        if( c < font->Quantity )\r
-        {\r
-            if( c == '\n' ) /* EOL; reset the length of this line */\r
-            {\r
-                if( length < this_line_length )\r
-                    length = this_line_length;\r
-                this_line_length = 0.0;\r
-            }\r
-            else  /* Not an EOL, increment the length of this line */\r
-            {\r
-                const SFG_StrokeChar *schar = font->Characters[ c ];\r
-                if( schar )\r
-                    this_line_length += schar->Right;\r
-            }\r
-        }\r
-    if( length < this_line_length )\r
-        length = this_line_length;\r
-    return( int )( length + 0.5 );\r
-}\r
-\r
-/*\r
- * Returns the height of a stroke font\r
- */\r
-GLfloat FGAPIENTRY glutStrokeHeight( void* fontID )\r
-{\r
-    SFG_StrokeFont* font;\r
-    FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutStrokeHeight" );\r
-    font = fghStrokeByID( fontID );\r
-    freeglut_return_val_if_fail( font, 0.0 );\r
-    return font->Height;\r
-}\r
-\r
-/*** END OF FILE ***/\r
+/*
+ * freeglut_font.c
+ *
+ * Bitmap and stroke fonts displaying.
+ *
+ * Copyright (c) 1999-2000 Pawel W. Olszta. All Rights Reserved.
+ * Written by Pawel W. Olszta, <olszta@sourceforge.net>
+ * Creation date: Thu Dec 16 1999
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a
+ * copy of this software and associated documentation files (the "Software"),
+ * to deal in the Software without restriction, including without limitation
+ * the rights to use, copy, modify, merge, publish, distribute, sublicense,
+ * and/or sell copies of the Software, and to permit persons to whom the
+ * Software is furnished to do so, subject to the following conditions:
+ *
+ * The above copyright notice and this permission notice shall be included
+ * in all copies or substantial portions of the Software.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
+ * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL
+ * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
+ * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
+ * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+ */
+
+#include <GL/freeglut.h>
+#include "freeglut_internal.h"
+
+/*
+ * TODO BEFORE THE STABLE RELEASE:
+ *
+ *  Test things out ...
+ */
+
+/* -- IMPORT DECLARATIONS -------------------------------------------------- */
+
+/*
+ * These are the font faces defined in freeglut_font_data.c file:
+ */
+extern SFG_Font fgFontFixed8x13;
+extern SFG_Font fgFontFixed9x15;
+extern SFG_Font fgFontHelvetica10;
+extern SFG_Font fgFontHelvetica12;
+extern SFG_Font fgFontHelvetica18;
+extern SFG_Font fgFontTimesRoman10;
+extern SFG_Font fgFontTimesRoman24;
+extern SFG_StrokeFont fgStrokeRoman;
+extern SFG_StrokeFont fgStrokeMonoRoman;
+
+
+/* -- PRIVATE FUNCTIONS ---------------------------------------------------- */
+
+/*
+ * Matches a font ID with a SFG_Font structure pointer.
+ * This was changed to match the GLUT header style.
+ */
+static SFG_Font* fghFontByID( void* font )
+{
+    if( font == GLUT_BITMAP_8_BY_13        )
+        return &fgFontFixed8x13;
+    if( font == GLUT_BITMAP_9_BY_15        )
+        return &fgFontFixed9x15;
+    if( font == GLUT_BITMAP_HELVETICA_10   )
+        return &fgFontHelvetica10;
+    if( font == GLUT_BITMAP_HELVETICA_12   )
+        return &fgFontHelvetica12;
+    if( font == GLUT_BITMAP_HELVETICA_18   )
+        return &fgFontHelvetica18;
+    if( font == GLUT_BITMAP_TIMES_ROMAN_10 )
+        return &fgFontTimesRoman10;
+    if( font == GLUT_BITMAP_TIMES_ROMAN_24 )
+        return &fgFontTimesRoman24;
+
+    fgWarning( "font 0x%08x not found", font );
+    return 0;
+}
+
+/*
+ * Matches a font ID with a SFG_StrokeFont structure pointer.
+ * This was changed to match the GLUT header style.
+ */
+static SFG_StrokeFont* fghStrokeByID( void* font )
+{
+    if( font == GLUT_STROKE_ROMAN      )
+        return &fgStrokeRoman;
+    if( font == GLUT_STROKE_MONO_ROMAN )
+        return &fgStrokeMonoRoman;
+
+    fgWarning( "stroke font 0x%08x not found", font );
+    return 0;
+}
+
+
+/* -- INTERFACE FUNCTIONS -------------------------------------------------- */
+
+/*
+ * Draw a bitmap character
+ */
+void FGAPIENTRY glutBitmapCharacter( void* fontID, int character )
+{
+    const GLubyte* face;
+    SFG_Font* font;
+    FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutBitmapCharacter" );
+    font = fghFontByID( fontID );
+    freeglut_return_if_fail( ( character >= 1 )&&( character < 256 ) );
+    freeglut_return_if_fail( font );
+
+    /*
+     * Find the character we want to draw (???)
+     */
+    face = font->Characters[ character ];
+
+    glPushClientAttrib( GL_CLIENT_PIXEL_STORE_BIT );
+    glPixelStorei( GL_UNPACK_SWAP_BYTES,  GL_FALSE );
+    glPixelStorei( GL_UNPACK_LSB_FIRST,   GL_FALSE );
+    glPixelStorei( GL_UNPACK_ROW_LENGTH,  0        );
+    glPixelStorei( GL_UNPACK_SKIP_ROWS,   0        );
+    glPixelStorei( GL_UNPACK_SKIP_PIXELS, 0        );
+    glPixelStorei( GL_UNPACK_ALIGNMENT,   1        );
+    glBitmap(
+        face[ 0 ], font->Height,      /* The bitmap's width and height  */
+        font->xorig, font->yorig,     /* The origin in the font glyph   */
+        ( float )( face[ 0 ] ), 0.0,  /* The raster advance -- inc. x,y */
+        ( face + 1 )                  /* The packed bitmap data...      */
+    );
+    glPopClientAttrib( );
+}
+
+void FGAPIENTRY glutBitmapString( void* fontID, const unsigned char *string )
+{
+    unsigned char c;
+    float x = 0.0f ;
+    SFG_Font* font;
+    FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutBitmapString" );
+    font = fghFontByID( fontID );
+    freeglut_return_if_fail( font );
+    if ( !string || ! *string )
+        return;
+
+    glPushClientAttrib( GL_CLIENT_PIXEL_STORE_BIT );
+    glPixelStorei( GL_UNPACK_SWAP_BYTES,  GL_FALSE );
+    glPixelStorei( GL_UNPACK_LSB_FIRST,   GL_FALSE );
+    glPixelStorei( GL_UNPACK_ROW_LENGTH,  0        );
+    glPixelStorei( GL_UNPACK_SKIP_ROWS,   0        );
+    glPixelStorei( GL_UNPACK_SKIP_PIXELS, 0        );
+    glPixelStorei( GL_UNPACK_ALIGNMENT,   1        );
+
+    /*
+     * Step through the string, drawing each character.
+     * A newline will simply translate the next character's insertion
+     * point back to the start of the line and down one line.
+     */
+    while( ( c = *string++) )
+        if( c == '\n' )
+        {
+            glBitmap ( 0, 0, 0, 0, -x, (float) -font->Height, NULL );
+            x = 0.0f;
+        }
+        else  /* Not an EOL, draw the bitmap character */
+        {
+            const GLubyte* face = font->Characters[ c ];
+
+            glBitmap(
+                face[ 0 ], font->Height,     /* Bitmap's width and height    */
+                font->xorig, font->yorig,    /* The origin in the font glyph */
+                ( float )( face[ 0 ] ), 0.0, /* The raster advance; inc. x,y */
+                ( face + 1 )                 /* The packed bitmap data...    */
+            );
+
+            x += ( float )( face[ 0 ] );
+        }
+
+    glPopClientAttrib( );
+}
+
+/*
+ * Returns the width in pixels of a font's character
+ */
+int FGAPIENTRY glutBitmapWidth( void* fontID, int character )
+{
+    SFG_Font* font;
+    FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutBitmapWidth" );
+    font = fghFontByID( fontID );
+    freeglut_return_val_if_fail( character > 0 && character < 256, 0 );
+    freeglut_return_val_if_fail( font, 0 );
+    return *( font->Characters[ character ] );
+}
+
+/*
+ * Return the width of a string drawn using a bitmap font
+ */
+int FGAPIENTRY glutBitmapLength( void* fontID, const unsigned char* string )
+{
+    unsigned char c;
+    int length = 0, this_line_length = 0;
+    SFG_Font* font;
+    FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutBitmapLength" );
+    font = fghFontByID( fontID );
+    freeglut_return_val_if_fail( font, 0 );
+    if ( !string || ! *string )
+        return 0;
+
+    while( ( c = *string++) )
+    {
+        if( c != '\n' )/* Not an EOL, increment length of line */
+            this_line_length += *( font->Characters[ c ]);
+        else  /* EOL; reset the length of this line */
+        {
+            if( length < this_line_length )
+                length = this_line_length;
+            this_line_length = 0;
+        }
+    }
+    if ( length < this_line_length )
+        length = this_line_length;
+
+    return length;
+}
+
+/*
+ * Returns the height of a bitmap font
+ */
+int FGAPIENTRY glutBitmapHeight( void* fontID )
+{
+    SFG_Font* font;
+    FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutBitmapHeight" );
+    font = fghFontByID( fontID );
+    freeglut_return_val_if_fail( font, 0 );
+    return font->Height;
+}
+
+/*
+ * Draw a stroke character
+ */
+void FGAPIENTRY glutStrokeCharacter( void* fontID, int character )
+{
+    const SFG_StrokeChar *schar;
+    const SFG_StrokeStrip *strip;
+    int i, j;
+    SFG_StrokeFont* font;
+    FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutStrokeCharacter" );
+    font = fghStrokeByID( fontID );
+    freeglut_return_if_fail( character >= 0 );
+    freeglut_return_if_fail( character < font->Quantity );
+    freeglut_return_if_fail( font );
+
+    schar = font->Characters[ character ];
+    freeglut_return_if_fail( schar );
+    strip = schar->Strips;
+
+    for( i = 0; i < schar->Number; i++, strip++ )
+    {
+        glBegin( GL_LINE_STRIP );
+        for( j = 0; j < strip->Number; j++ )
+            glVertex2f( strip->Vertices[ j ].X, strip->Vertices[ j ].Y );
+        glEnd( );
+                               glBegin( GL_POINTS );
+        for( j = 0; j < strip->Number; j++ )
+            glVertex2f( strip->Vertices[ j ].X, strip->Vertices[ j ].Y );
+                               glEnd( );
+    }
+    glTranslatef( schar->Right, 0.0, 0.0 );
+}
+
+void FGAPIENTRY glutStrokeString( void* fontID, const unsigned char *string )
+{
+    unsigned char c;
+    int i, j;
+    float length = 0.0;
+    SFG_StrokeFont* font;
+    FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutStrokeString" );
+    font = fghStrokeByID( fontID );
+    freeglut_return_if_fail( font );
+    if ( !string || ! *string )
+        return;
+
+    /*
+     * Step through the string, drawing each character.
+     * A newline will simply translate the next character's insertion
+     * point back to the start of the line and down one line.
+     */
+    while( ( c = *string++) )
+        if( c < font->Quantity )
+        {
+            if( c == '\n' )
+            {
+                glTranslatef ( -length, -( float )( font->Height ), 0.0 );
+                length = 0.0;
+            }
+            else  /* Not an EOL, draw the bitmap character */
+            {
+                const SFG_StrokeChar *schar = font->Characters[ c ];
+                if( schar )
+                {
+                    const SFG_StrokeStrip *strip = schar->Strips;
+
+                    for( i = 0; i < schar->Number; i++, strip++ )
+                    {
+                        glBegin( GL_LINE_STRIP );
+                        for( j = 0; j < strip->Number; j++ )
+                            glVertex2f( strip->Vertices[ j ].X,
+                                        strip->Vertices[ j ].Y);
+
+                        glEnd( );
+                    }
+
+                    length += schar->Right;
+                    glTranslatef( schar->Right, 0.0, 0.0 );
+                }
+            }
+        }
+}
+
+/*
+ * Return the width in pixels of a stroke character
+ */
+int FGAPIENTRY glutStrokeWidth( void* fontID, int character )
+{
+    const SFG_StrokeChar *schar;
+    SFG_StrokeFont* font;
+    FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutStrokeWidth" );
+    font = fghStrokeByID( fontID );
+    freeglut_return_val_if_fail( ( character >= 0 ) &&
+                                 ( character < font->Quantity ),
+                                 0
+    );
+    freeglut_return_val_if_fail( font, 0 );
+    schar = font->Characters[ character ];
+    freeglut_return_val_if_fail( schar, 0 );
+
+    return ( int )( schar->Right + 0.5 );
+}
+
+/*
+ * Return the width of a string drawn using a stroke font
+ */
+int FGAPIENTRY glutStrokeLength( void* fontID, const unsigned char* string )
+{
+    unsigned char c;
+    float length = 0.0;
+    float this_line_length = 0.0;
+    SFG_StrokeFont* font;
+    FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutStrokeLength" );
+    font = fghStrokeByID( fontID );
+    freeglut_return_val_if_fail( font, 0 );
+    if ( !string || ! *string )
+        return 0;
+
+    while( ( c = *string++) )
+        if( c < font->Quantity )
+        {
+            if( c == '\n' ) /* EOL; reset the length of this line */
+            {
+                if( length < this_line_length )
+                    length = this_line_length;
+                this_line_length = 0.0;
+            }
+            else  /* Not an EOL, increment the length of this line */
+            {
+                const SFG_StrokeChar *schar = font->Characters[ c ];
+                if( schar )
+                    this_line_length += schar->Right;
+            }
+        }
+    if( length < this_line_length )
+        length = this_line_length;
+    return( int )( length + 0.5 );
+}
+
+/*
+ * Returns the height of a stroke font
+ */
+GLfloat FGAPIENTRY glutStrokeHeight( void* fontID )
+{
+    SFG_StrokeFont* font;
+    FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutStrokeHeight" );
+    font = fghStrokeByID( fontID );
+    freeglut_return_val_if_fail( font, 0.0 );
+    return font->Height;
+}
+
+/*** END OF FILE ***/