Leaked source code of windows server 2003
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

1717 lines
51 KiB

#include "precomp.h"
#pragma hdrstop
#include <math.h>
#include <GL\glu.h>
#include "batchinf.h"
#include "glteb.h"
#include "glapi.h"
#include "glsbcltu.h"
#include "fontoutl.h"
static OFContext* CreateOFContext( HDC hdc,
FLOAT chordalDeviation,
FLOAT extrusion,
int type,
BOOL bUnicode );
static BOOL ScaleFont( HDC hdc,
OFContext* ofc,
BOOL bUnicode );
static void DestroyOFContext( HDC hdc,
OFContext* ofc );
static BOOL DrawGlyph( OFContext* ofc );
static BOOL MakeDisplayListFromGlyph( OFContext* ofc,
DWORD listName,
LPGLYPHMETRICS glyphMetrics );
static BOOL MakeLinesFromArc( OFContext* ofc,
LOOP* pLoop,
PRIM* pPrim,
POINT2D p0,
POINT2D p1,
POINT2D p2,
FLOAT chordalDeviationSquared);
static LOOP_LIST* MakeLinesFromGlyph( OFContext* ofc );
static BOOL MakeLinesFromTTLine( OFContext* ofc,
LOOP* pLoop,
PRIM* pPrim,
UCHAR** pp,
WORD pointCount );
static BOOL MakeLinesFromTTPolycurve( OFContext* ofc,
LOOP* pLoop,
UCHAR** pp );
static BOOL MakeLinesFromTTPolygon( OFContext* ofc,
LOOP_LIST* pLoopList,
UCHAR** pp );
static BOOL MakeLinesFromTTQSpline( OFContext* ofc,
LOOP* pLoop,
PRIM* pPrim,
UCHAR** pp,
WORD pointCount );
static void CALLBACK TessError( GLenum error,
void *data);
static void CALLBACK TessCombine( GLdouble coord[3],
POINT2D* data[4],
GLfloat w[4],
POINT2D** dataOut,
void *userData);
static void FreeCombinePool( MEM_POOL *combinePool );
static void ApplyVertexFilter( LOOP_LIST *pLoopList );
static void CheckRedundantVertices( LOOP* pLoop );
static BOOL PointsColinear( POINT2D *p1,
POINT2D *p2,
POINT2D *p3 );
static FLOAT GetFixed( UCHAR** p );
static LOOP_LIST* InitLoopBuf( void );
static LOOP* NewLoop( LOOP_LIST *Loops,
POINT2D *pFirstPoint );
static void FreeLoopList( LOOP_LIST *pLoopList );
static PRIM* NewPrim( LOOP *pLoop,
DWORD primType );
static void CalcVertPtrs( LOOP *pLoop );
static BOOL AppendToVertBuf( LOOP* pLoop,
PRIM* pPrim,
POINT2D *p );
// macros to access data from byte streams:
// get WORD from byte stream, increment stream ptr by WORD
#define GetWord( p ) \
( *( ((UNALIGNED WORD *) *p)++ ) )
// get DWORD from byte stream, increment stream ptr by DWORD
#define GetDWord( p ) \
( *( ((UNALIGNED DWORD *) *p)++ ) )
// get signed word (SHORT) from byte stream, increment stream ptr by SHORT
#define GetSignedWord( p ) \
( *( ((UNALIGNED SHORT *) *p)++ ) )
#define POINT2DEQUAL( p1, p2 ) \
( (p1->x == p2->x) && (p1->y == p2->y) )
/******************************Public*Routine******************************\
* wglUseFontOutlinesA
* wglUseFontOutlinesW
*
* Stubs that call wglUseFontOutlinesAW with the bUnicode flag set
* appropriately.
*
\**************************************************************************/
BOOL WINAPI
wglUseFontOutlinesAW( HDC hDC,
DWORD first,
DWORD count,
DWORD listBase,
FLOAT chordalDeviation,
FLOAT extrusion,
int format,
LPGLYPHMETRICSFLOAT lpgmf,
BOOL bUnicode );
BOOL WINAPI
wglUseFontOutlinesA( HDC hDC,
DWORD first,
DWORD count,
DWORD listBase,
FLOAT chordalDeviation,
FLOAT extrusion,
int format,
LPGLYPHMETRICSFLOAT lpgmf )
{
return wglUseFontOutlinesAW( hDC, first, count, listBase, chordalDeviation,
extrusion, format, lpgmf, FALSE );
}
BOOL WINAPI
wglUseFontOutlinesW( HDC hDC,
DWORD first,
DWORD count,
DWORD listBase,
FLOAT chordalDeviation,
FLOAT extrusion,
int format,
LPGLYPHMETRICSFLOAT lpgmf )
{
return wglUseFontOutlinesAW( hDC, first, count, listBase, chordalDeviation,
extrusion, format, lpgmf, TRUE );
}
/*****************************************************************************
* wglUseFontOutlinesAW
*
* Converts a subrange of the glyphs in a TrueType font to OpenGL display
* lists.
*
* History:
* 15-Dec-1994 -by- Marc Fortier [marcfo]
* Wrote it.
*****************************************************************************/
BOOL WINAPI
wglUseFontOutlinesAW( HDC hDC,
DWORD first,
DWORD count,
DWORD listBase,
FLOAT chordalDeviation,
FLOAT extrusion,
int format,
LPGLYPHMETRICSFLOAT lpgmf,
BOOL bUnicode
)
{
DWORD glyphIndex;
DWORD listIndex = listBase;
UCHAR* glyphBuf;
DWORD glyphBufSize, error;
OFContext* ofc;
BOOL status=WFO_FAILURE;
// Return error if there is no current RC.
if (!GLTEB_CLTCURRENTRC())
{
WARNING("wglUseFontOutlines: no current RC\n");
SetLastError(ERROR_INVALID_HANDLE);
return status;
}
/*
* Flush any previous OpenGL errors. This allows us to check for
* new errors so they can be reported.
*/
while (glGetError() != GL_NO_ERROR)
;
/*
* Preallocate a buffer for the outline data, and track its size:
*/
// XXX: do we need to start with such a big size for this buffer ?
glyphBuf = (UCHAR*) ALLOC(glyphBufSize = 10240);
if (!glyphBuf) {
WARNING("Alloc of glyphBuf failed\n");
return status;
}
/*
* Create font outline context
*/
ofc = CreateOFContext( hDC, chordalDeviation, extrusion, format,
bUnicode );
if( !ofc ) {
WARNING("CreateOFContext failed\n");
goto exit;
}
/*
* Process each glyph in the given range:
*/
for (glyphIndex = first; glyphIndex - first < count; ++glyphIndex)
{
GLYPHMETRICS glyphMetrics;
DWORD glyphSize;
static MAT2 matrix =
{
{0, 1}, {0, 0},
{0, 0}, {0, 1}
};
/*
* Determine how much space is needed to store the glyph's
* outlines. If our glyph buffer isn't large enough,
* resize it.
*/
if( bUnicode )
glyphSize = GetGlyphOutlineW( hDC, glyphIndex, GGO_NATIVE,
&glyphMetrics, 0, NULL, &matrix );
else
glyphSize = GetGlyphOutlineA( hDC, glyphIndex, GGO_NATIVE,
&glyphMetrics, 0, NULL, &matrix );
if( glyphSize == GDI_ERROR ) {
WARNING("GetGlyphOutline() failed\n");
goto exit;
}
if (glyphSize > glyphBufSize)
{
FREE(glyphBuf);
glyphBuf = (UCHAR*) ALLOC(glyphBufSize = glyphSize);
if (!glyphBuf) {
WARNING("Alloc of glyphBuf failed\n");
goto exit;
}
}
/*
* Get the glyph's outlines.
*/
if( bUnicode )
error = GetGlyphOutlineW( hDC, glyphIndex, GGO_NATIVE,
&glyphMetrics, glyphBufSize, glyphBuf, &matrix );
else
error = GetGlyphOutlineA( hDC, glyphIndex, GGO_NATIVE,
&glyphMetrics, glyphBufSize, glyphBuf, &matrix );
if( error == GDI_ERROR ) {
WARNING("GetGlyphOutline() failed\n");
goto exit;
}
/*
* Turn the glyph into a display list:
*/
ofc->glyphBuf = glyphBuf;
ofc->glyphSize = glyphSize;
if (!MakeDisplayListFromGlyph( ofc,
listIndex,
&glyphMetrics)) {
WARNING("MakeDisplayListFromGlyph() failed\n");
listIndex++; // so it will be deleted
goto exit;
}
/*
* Supply scaled glyphMetrics if requested
*/
if( lpgmf ) {
lpgmf->gmfBlackBoxX =
ofc->scale * (FLOAT) glyphMetrics.gmBlackBoxX;
lpgmf->gmfBlackBoxY =
ofc->scale * (FLOAT) glyphMetrics.gmBlackBoxY;
lpgmf->gmfptGlyphOrigin.x =
ofc->scale * (FLOAT) glyphMetrics.gmptGlyphOrigin.x;
lpgmf->gmfptGlyphOrigin.y =
ofc->scale * (FLOAT) glyphMetrics.gmptGlyphOrigin.y;
lpgmf->gmfCellIncX =
ofc->scale * (FLOAT) glyphMetrics.gmCellIncX;
lpgmf->gmfCellIncY =
ofc->scale * (FLOAT) glyphMetrics.gmCellIncY;
lpgmf++;
}
listIndex++;
}
// Set status to SUCCESS if we get this far
status = WFO_SUCCESS;
/*
* Clean up temporary storage and return. If an error occurred,
* set error flags and return FAILURE status;
* otherwise just return SUCCESS.
*/
exit:
if( glyphBuf )
FREE(glyphBuf);
if( ofc )
DestroyOFContext( hDC, ofc);
if( !status )
{
// assume memory error
WARNING("wglUseFontOutlines: not enough memory\n");
SetLastError(ERROR_NOT_ENOUGH_MEMORY);
// free up display lists
glDeleteLists( listBase, listIndex-listBase );
}
return status;
}
/*****************************************************************************
* MakeDisplayListFromGlyph
*
* Converts the outline of a glyph to an OpenGL display list.
*
* Return value is nonzero for success, zero for failure.
*
* Does not check for OpenGL errors, so if the caller needs to know about them,
* it should call glGetError().
*****************************************************************************/
static BOOL
MakeDisplayListFromGlyph( IN OFContext* ofc,
IN DWORD listName,
IN LPGLYPHMETRICS glyphMetrics )
{
BOOL status;
glNewList(listName, GL_COMPILE);
/*
* Set normal and orientation for front face of glyph
*/
glNormal3f( 0.0f, 0.0f, 1.0f );
glFrontFace( GL_CCW );
status = DrawGlyph( ofc );
/*
* Translate by gmCellIncX, gmCellIncY
*/
glTranslatef( ofc->scale * (FLOAT) glyphMetrics->gmCellIncX,
ofc->scale * (FLOAT) glyphMetrics->gmCellIncY,
0.0f );
glEndList();
// Check for GL errors occuring during processing of the glyph
while( glGetError() != GL_NO_ERROR )
status = WFO_FAILURE;
return status;
}
/*****************************************************************************
* DrawGlyph
*
* Converts the outline of a glyph to OpenGL drawing primitives, tessellating
* as needed, and then draws the glyph. Tessellation of the quadratic splines
* in the outline is controlled by "chordalDeviation", and the drawing
* primitives (lines or polygons) are selected by "format".
*
* Return value is nonzero for success, zero for failure.
*
* Does not check for OpenGL errors, so if the caller needs to know about them,
* it should call glGetError().
* History:
* 26-Sep-1995 -by- Marc Fortier [marcfo]
* Use extrusioniser to draw polygonal faces with extrusion=0
*****************************************************************************/
static BOOL
DrawGlyph( IN OFContext *ofc )
{
BOOL status = WFO_FAILURE;
DWORD nLoops;
DWORD point;
DWORD nVerts;
LOOP_LIST *pLoopList;
LOOP *pLoop;
POINT2D *p;
MEM_POOL *mp = NULL;
/*
* Convert the glyph outlines to a set of polyline loops.
* (See MakeLinesFromGlyph() for the format of the loop data
* structure.)
*/
if( !(pLoopList = MakeLinesFromGlyph(ofc)) )
goto exit;
/*
* Filter out unnecessary vertices
*/
ApplyVertexFilter( pLoopList );
/*
* Now draw the loops in the appropriate format:
*/
if( ofc->format == WGL_FONT_LINES )
{
/*
* This is the easy case. Just draw the outlines.
*/
nLoops = pLoopList->nLoops;
pLoop = pLoopList->LoopBuf;
#ifndef FONT_DEBUG
for( ; nLoops; nLoops--, pLoop++ )
{
glBegin(GL_LINE_LOOP);
nVerts = pLoop->nVerts;
p = pLoop->VertBuf;
for( ; nVerts; nVerts--, p++ ) {
glVertex2fv( (FLOAT*) p );
}
glEnd();
}
#else
// color code the primitives
for( ; nLoops; nLoops--, pLoop++ )
{
DrawColorCodedLineLoop( pLoop, 0.0f );
}
#endif
if( ofc->ec )
extr_DrawLines( ofc->ec, pLoopList );
status = WFO_SUCCESS;
}
else if (ofc->format == WGL_FONT_POLYGONS)
{
GLdouble v[3];
/*
* This is the hard case. We have to set up a tessellator
* to convert the outlines into a set of polygonal
* primitives, which the tessellator passes to some
* auxiliary routines for drawing.
*/
/* Initialize polygon extrusion for the glyph.
* This prepares for tracking of the tesselation in order to
* build the Back-facing polygons.
*/
mp = &ofc->combinePool;
ofc->curCombinePool = mp;
mp->index = 0;
mp->next = NULL;
if( ofc->ec ) {
if( !extr_PolyInit( ofc->ec ) )
goto exit;
}
ofc->TessErrorOccurred = 0;
v[2] = 0.0;
gluTessBeginPolygon( ofc->tess, ofc );
/*
* Each loop returned from MakeLinesFromGlyph is closed (first and
* last points are the same). The old tesselator had trouble with
* this. Since the tesselator automatically closes all loops,
* we skip the last point to be on the safe side.
*/
nLoops = pLoopList->nLoops;
pLoop = pLoopList->LoopBuf;
for( ; nLoops; nLoops--, pLoop++ )
{
gluTessBeginContour( ofc->tess );
nVerts = pLoop->nVerts - 1; // skip last point
p = pLoop->VertBuf;
for( ; nVerts; nVerts--, p++ )
{
v[0] = p->x;
v[1] = p->y;
gluTessVertex(ofc->tess, v, p);
}
gluTessEndContour( ofc->tess );
}
gluTessEndPolygon( ofc->tess );
if (ofc->TessErrorOccurred)
goto exit;
if( ofc->ec ) {
/* check for OUT_OF_MEMORY_ERROR in extrusion lib, that might
* have occured during tesselation tracking.
*/
if( ofc->ec->TessErrorOccurred )
goto exit;
#ifdef VARRAY
if( ofc->ec->zExtrusion == 0.0f )
DrawFacePolygons( ofc->ec, 0.0f );
else if( !extr_DrawPolygons( ofc->ec, pLoopList ) )
goto exit;
#else
if( !extr_DrawPolygons( ofc->ec, pLoopList ) )
goto exit;
#endif
}
status = WFO_SUCCESS;
}
exit:
/*
* Putting PolyFinish here means PolyInit may not have been called.
* This is ok.
*/
if( mp )
FreeCombinePool( mp );
if( pLoopList )
FreeLoopList( pLoopList );
if( ofc->ec )
extr_PolyFinish( ofc->ec );
return status;
}
/*****************************************************************************
* TessCombine
*
* Tesselation callback for loop intersection. We have to allocate a vertex
* and return it to tesselator. Allocation is from the context's static pool.
* If this runs dry, then a linked list of MEM_POOL blocks is used.
*****************************************************************************/
static void CALLBACK
TessCombine( GLdouble coord[3], POINT2D *data[4], GLfloat w[4],
POINT2D **dataOut, void *userData )
{
OFContext *ofc = (OFContext *) userData;
MEM_POOL *mp = ofc->curCombinePool;
POINT2D *p;
// make sure there's room available in the current pool block
if( mp->index >= POOL_SIZE )
{
// we need to allocate another MEM_POOL block
MEM_POOL *newPool;
newPool = (MEM_POOL *) ALLOC( sizeof(MEM_POOL) );
if( !newPool )
// tesselator will handle any problem with this
return;
newPool->index = 0;
newPool->next = NULL;
mp->next = newPool;
mp = newPool;
ofc->curCombinePool = mp; // new pool becomes the current pool
}
p = mp->pool + mp->index;
p->x = (GLfloat) coord[0];
p->y = (GLfloat) coord[1];
mp->index ++;
*dataOut = p;
}
/*****************************************************************************
* FreeCombinePool
*
* Frees any pools of memory allocated by TessCombine callback
*****************************************************************************/
static void
FreeCombinePool( MEM_POOL *memPool )
{
MEM_POOL *nextPool;
memPool = memPool->next; // first pool in list is static part of context
while( memPool ) {
nextPool = memPool->next;
FREE( memPool );
memPool = nextPool;
}
}
/*****************************************************************************
* TessError
*
* Saves the last tessellator error code in ofc->TessErrorOccurred.
*****************************************************************************/
static void CALLBACK
TessError(GLenum error, void *data)
{
OFContext *ofc = (OFContext *) data;
// Only some of these errors are fatal:
switch( error ) {
case GLU_TESS_COORD_TOO_LARGE:
case GLU_TESS_NEED_COMBINE_CALLBACK:
ofc->TessErrorOccurred = error;
break;
default:
break;
}
}
/*****************************************************************************
* MakeLinesFromGlyph
*
* Converts the outline of a glyph from the TTPOLYGON format into
* structures of Loops, Primitives and Vertices.
*
* Line segments from the TTPOLYGON are transferred to the output array in
* the obvious way. Quadratic splines in the TTPOLYGON are converted to
* collections of line segments
*****************************************************************************/
static LOOP_LIST*
MakeLinesFromGlyph( IN OFContext* ofc )
{
UCHAR* p;
BOOL status = WFO_FAILURE;
LOOP_LIST *pLoopList;
/*
* Initialize the buffer into which we place the loop data:
*/
if( !(pLoopList = InitLoopBuf()) )
return NULL;
p = ofc->glyphBuf;
while (p < ofc->glyphBuf + ofc->glyphSize)
{
if( !MakeLinesFromTTPolygon( ofc, pLoopList, &p) )
goto exit;
}
status = WFO_SUCCESS;
exit:
if (!status) {
FreeLoopList( pLoopList );
pLoopList = (LOOP_LIST *) NULL;
}
return pLoopList;
}
/*****************************************************************************
* MakeLinesFromTTPolygon
*
* Converts a TTPOLYGONHEADER and its associated curve structures into a
* LOOP structure.
*****************************************************************************/
static BOOL
MakeLinesFromTTPolygon( IN OFContext* ofc,
IN LOOP_LIST* pLoopList,
IN OUT UCHAR** pp)
{
DWORD polySize;
UCHAR* polyStart;
POINT2D *pFirstP, *pLastP, firstPoint;
LOOP *pLoop;
PRIM *pPrim;
/*
* Record where the polygon data begins.
*/
polyStart = *pp;
/*
* Extract relevant data from the TTPOLYGONHEADER:
*/
polySize = GetDWord(pp);
if( GetDWord(pp) != TT_POLYGON_TYPE ) /* polygon type */
return WFO_FAILURE;
firstPoint.x = ofc->scale * GetFixed(pp); // 1st X coord
firstPoint.y = ofc->scale * GetFixed(pp); // 1st Y coord
/*
* Initialize a new LOOP struct in the LoopBuf, with the first point
*/
if( !(pLoop = NewLoop( pLoopList, &firstPoint )) )
return WFO_FAILURE;
/*
* Process each of the TTPOLYCURVE structures in the polygon:
*/
while (*pp < polyStart + polySize) {
if( !MakeLinesFromTTPolycurve( ofc, pLoop, pp ) )
return WFO_FAILURE;
}
/* Now have to fix up end of loop : after studying the chars, it
* was determined that if a curve started with a line, and ended with
* a qspline, AND the first and last point were not the same, then there
* is an implied line joining the two.
* In any case, we also make sure here that first and last points are
* coincident.
*/
pLastP = (POINT2D *) (pLoop->VertBuf+pLoop->nVerts-1);
pFirstP = &firstPoint;
if( !POINT2DEQUAL( pLastP, pFirstP ) ) {
// add 1-vertex line prim at the end
if( !(pPrim = NewPrim( pLoop, TT_PRIM_LINE)) )
return WFO_FAILURE;
if ( !AppendToVertBuf( pLoop, pPrim, pFirstP) )
return WFO_FAILURE;
}
/* At end of each loop, calculate pVert for each PRIM from its
* VertIndex value (for convenience later).
*/
CalcVertPtrs( pLoop );
return WFO_SUCCESS;
}
/*****************************************************************************
* MakeLinesFromTTPolyCurve
*
* Converts the lines and splines in a single TTPOLYCURVE structure to points
* in the Loop.
*****************************************************************************/
static BOOL
MakeLinesFromTTPolycurve( IN OFContext* ofc,
IN LOOP* pLoop,
IN OUT UCHAR** pp )
{
WORD type;
WORD pointCount;
PRIM *pPrim;
/*
* Pick up the relevant fields of the TTPOLYCURVE structure:
*/
type = GetWord(pp);
pointCount = GetWord(pp);
if( !(pPrim = NewPrim( pLoop, type )) )
return WFO_FAILURE;
/*
* Convert the "curve" to line segments:
*/
if (type == TT_PRIM_LINE) {
return MakeLinesFromTTLine( ofc, pLoop, pPrim, pp, pointCount);
} else if (type == TT_PRIM_QSPLINE) {
return MakeLinesFromTTQSpline( ofc, pLoop, pPrim, pp, pointCount );
} else
return WFO_FAILURE;
}
/*****************************************************************************
* MakeLinesFromTTLine
*
* Converts points from the polyline in a TT_PRIM_LINE structure to
* equivalent points in the Loop.
*****************************************************************************/
static BOOL
MakeLinesFromTTLine( IN OFContext* ofc,
IN LOOP* pLoop,
IN PRIM* pPrim,
IN OUT UCHAR** pp,
IN WORD pointCount)
{
POINT2D p;
/*
* Just copy the line segments into the vertex buffer (converting
* type as we go):
*/
while (pointCount--)
{
p.x = ofc->scale * GetFixed(pp); // X coord
p.y = ofc->scale * GetFixed(pp); // Y coord
if( !AppendToVertBuf( pLoop, pPrim, &p ) )
return WFO_FAILURE;
}
return WFO_SUCCESS;
}
/*****************************************************************************
* MakeLinesFromTTQSpline
*
* Converts points from the poly quadratic spline in a TT_PRIM_QSPLINE
* structure to polyline points in the Loop.
*****************************************************************************/
static BOOL
MakeLinesFromTTQSpline( IN OFContext* ofc,
IN LOOP* pLoop,
IN PRIM* pPrim,
IN OUT UCHAR** pp,
IN WORD pointCount )
{
POINT2D p0, p1, p2;
WORD point;
POINT2D p, *pLastP;
/*
* Process each of the non-interpolated points in the outline.
* To do this, we need to generate two interpolated points (the
* start and end of the arc) for each non-interpolated point.
* The first interpolated point is always the one most recently
* stored in VertBuf, so we just extract it from there. The
* second interpolated point is either the average of the next
* two points in the QSpline, or the last point in the QSpline
* if only one remains.
*/
// Start with last generated point in VertBuf
p0 = *(pLoop->VertBuf + pLoop->nVerts - 1);
// pointCount should be >=2, but in case it's not...
p1 = p2 = p0;
for (point = 0; point < pointCount - 1; ++point)
{
p1.x = ofc->scale * GetFixed(pp);
p1.y = ofc->scale * GetFixed(pp);
if (point == pointCount - 2)
{
/*
* This is the last arc in the QSpline. The final
* point is the end of the arc.
*/
p2.x = ofc->scale * GetFixed(pp);
p2.y = ofc->scale * GetFixed(pp);
}
else
{
/*
* Peek at the next point in the input to compute
* the end of the arc:
*/
p.x = ofc->scale * GetFixed(pp);
p.y = ofc->scale * GetFixed(pp);
p2.x = 0.5f * (p1.x + p.x);
p2.y = 0.5f * (p1.y + p.y);
/*
* Push the point back onto the input so it will
* be reused as the next off-curve point:
*/
*pp -= 2*sizeof(FIXED); // x and y
}
if( !MakeLinesFromArc( ofc,
pLoop,
pPrim,
p0,
p1,
p2,
ofc->chordalDeviation * ofc->chordalDeviation))
return WFO_FAILURE;
// p0 is now the last interpolated point (p2)
p0 = p2;
}
// put in last point in arc
if( !AppendToVertBuf( pLoop, pPrim, &p2 ) )
return WFO_FAILURE;
return WFO_SUCCESS;
}
/*****************************************************************************
* MakeLinesFromArc
*
* Subdivides one arc of a quadratic spline until the chordal deviation
* tolerance requirement is met, then places the resulting set of line
* segments in the Loop.
*****************************************************************************/
static BOOL
MakeLinesFromArc( IN OFContext *ofc,
IN LOOP* pLoop,
IN PRIM* pPrim,
IN POINT2D p0,
IN POINT2D p1,
IN POINT2D p2,
IN FLOAT chordalDeviationSquared)
{
POINT2D p01;
POINT2D p12;
POINT2D midPoint;
FLOAT deltaX;
FLOAT deltaY;
/*
* Calculate midpoint of the curve by de Casteljau:
*/
p01.x = 0.5f * (p0.x + p1.x);
p01.y = 0.5f * (p0.y + p1.y);
p12.x = 0.5f * (p1.x + p2.x);
p12.y = 0.5f * (p1.y + p2.y);
midPoint.x = 0.5f * (p01.x + p12.x);
midPoint.y = 0.5f * (p01.y + p12.y);
/*
* Estimate chordal deviation by the distance from the midpoint
* of the curve to its non-interpolated control point. If this
* distance is greater than the specified chordal deviation
* constraint, then subdivide. Otherwise, generate polylines
* from the three control points.
*/
deltaX = midPoint.x - p1.x;
deltaY = midPoint.y - p1.y;
if (deltaX * deltaX + deltaY * deltaY > chordalDeviationSquared)
{
if( !MakeLinesFromArc( ofc, pLoop, pPrim,
p0,
p01,
midPoint,
chordalDeviationSquared) )
return WFO_FAILURE;
if( !MakeLinesFromArc( ofc, pLoop, pPrim,
midPoint,
p12,
p2,
chordalDeviationSquared) )
return WFO_FAILURE;
}
else
{
/*
* The "pen" is already at (x0, y0), so we don't need to
* add that point to the LineBuf.
*/
if( !AppendToVertBuf( pLoop, pPrim, &p1 ) )
return WFO_FAILURE;
}
return WFO_SUCCESS;
}
/*****************************************************************************
* ApplyVertexFilter
*
* Filter the vertex buffer to get rid of redundant vertices.
* These can occur on Primitive boundaries.
*****************************************************************************/
static void ApplyVertexFilter( LOOP_LIST *pLoopList )
{
DWORD nLoops;
LOOP *pLoop;
nLoops = pLoopList->nLoops;
pLoop = pLoopList->LoopBuf;
for( ; nLoops; nLoops--, pLoop++ ) {
CheckRedundantVertices( pLoop );
}
}
/*****************************************************************************
* CheckRedundantVertices
*
* Check for redundant vertices on Curve-Curve boundaries (including loop
* closure), and get rid of them, using in-place algorithm.
*****************************************************************************/
static void CheckRedundantVertices( LOOP *pLoop )
{
PRIM *pPrim, *pNextPrim;
DWORD primType, nextPrimType, nVerts;
BOOL bEliminate, bLastEliminate;
DWORD nEliminated=0, nPrims;
POINT2D *pVert, *pVert2ndToLast;
nPrims = pLoop->nPrims;
if( nPrims < 2 )
return;
pPrim = pLoop->PrimBuf;
pNextPrim = pPrim + 1;
nPrims--; // the last prim is dealt with afterwards
for( ; nPrims; nPrims--, pPrim = pNextPrim++ ) {
bEliminate = FALSE;
nVerts = pPrim->nVerts;
// check spline<->* boundaries
if( (pPrim->nVerts >= 2) &&
((pPrim->primType == PRIM_CURVE ) ||
(pNextPrim->primType == PRIM_CURVE )) ) {
/* get ptr to 2nd-to-last vertex in current prim
* !! Note that last vertex in current prim and first vertex in
* next prim are the same.
*/
pVert2ndToLast = pPrim->pVert + pPrim->nVerts - 2;
if( PointsColinear( pVert2ndToLast,
pVert2ndToLast+1,
pNextPrim->pVert+1 ) ) {
// we eliminate last vertex in current prim
bEliminate = TRUE;
pPrim->nVerts--;
nVerts--;
}
}
/* move vertices up in vertBuf if necessary (if any vertices
* were PREVIOUSLY eliminated)
*/
if( nEliminated ) {
pVert = pPrim->pVert - nEliminated; // new pVert
memcpy( pVert+1, pPrim->pVert+1, (nVerts-1)*sizeof(POINT2D));
pPrim->pVert = pVert;
}
if( bEliminate ) {
nEliminated += 1;
}
}
/* also check for redundancy at closure:
* - replace firstPrim's first vertex with 2nd-to-last of last prim
* - eliminate last vertex in last prim
*/
bLastEliminate = bEliminate;
bEliminate = FALSE;
nVerts = pPrim->nVerts;
pNextPrim = pLoop->PrimBuf; // first prim in loop
if( (pPrim->nVerts >= 2) &&
((pPrim->primType == PRIM_CURVE ) ||
(pNextPrim->primType == PRIM_CURVE )) ) {
POINT2D *pVertLast;
pVert2ndToLast = pPrim->pVert + pPrim->nVerts - 2; // always >=2 verts
pVertLast = pVert2ndToLast + 1;
if( (pPrim->nVerts == 2) && bLastEliminate )
/* 2ndToLast vert (same as first vert) of this prim has
* been eliminated. Deal with it by backing up the ptr.
* This didn't matter in above loop, because there wasn't the
* possibility of munging the first vertex in the loop
*/
pVert2ndToLast--;
// point to 2nd-to-last vertex in prim
if( PointsColinear( pVert2ndToLast,
pVertLast,
pNextPrim->pVert+1 ) ) {
bEliminate = TRUE;
pPrim->nVerts--;
// munge first prim's first vertex
/* problem here if have 2 eliminations in a row, and pPrim was
* a 2 vertex prim - then pVert2ndToLast is pointing to an
* eliminated vertex
*/
*(pNextPrim->pVert) = *(pVert2ndToLast);
nVerts--;
}
}
// move up last prim's vertices if necessary
if( nEliminated ) {
pVert = pPrim->pVert - nEliminated; // new pVert
memcpy( pVert+1, pPrim->pVert+1, (nVerts-1)*sizeof(POINT2D) );
// This misses copying one vertex
pPrim->pVert = pVert;
}
if( bEliminate ) {
nEliminated += 1;
}
// now update vertex count in Loop
pLoop->nVerts -= nEliminated;
// Check for prims with nVerts=1 (invalidated), and remove them
nPrims = pLoop->nPrims;
pPrim = pLoop->PrimBuf;
nEliminated = 0;
for( ; nPrims; nPrims--, pPrim++ ) {
if( pPrim->nVerts == 1 ) {
nEliminated++;
continue;
}
*(pPrim-nEliminated) = *pPrim;
}
pLoop->nPrims -= nEliminated;
}
/*****************************************************************************
* PointsColinear
*
* Returns TRUE if the 3 points are colinear enough.
*****************************************************************************/
static BOOL PointsColinear( POINT2D *p1,
POINT2D *p2,
POINT2D *p3 )
{
POINT2D v1, v2;
// compare slopes of the 2 vectors? - optimize later
if( POINT2DEQUAL( p1, p2 ) || POINT2DEQUAL( p2, p3 ) )
// avoid sending 0 vector to CalcAngle (generates FPE)
return TRUE;
v1.x = p2->x - p1->x;
v1.y = p2->y - p1->y;
v2.x = p3->x - p2->x;
v2.y = p3->y - p2->y;
if( fabs(CalcAngle( &v1, &v2 )) < CoplanarThresholdAngle )
return TRUE;
return FALSE;
}
/*****************************************************************************
* CreateOFContext
*
* Create and initialize the outline font context.
*
* History:
* 26-Sep-1995 -by- Marc Fortier [marcfo]
* Use extrusioniser to draw polygonal faces with extrusion=0
*****************************************************************************/
static OFContext* CreateOFContext( HDC hdc,
FLOAT chordalDeviation,
FLOAT extrusion,
INT format,
BOOL bUnicode )
{
OFContext *ofc = (OFContext *) NULL;
BOOL status = WFO_FAILURE;
// validate parameters
if( (format != WGL_FONT_LINES) && (format != WGL_FONT_POLYGONS) ) {
WARNING("wglUseFontOutlines: invalid format parameter\n");
SetLastError(ERROR_INVALID_PARAMETER);
return NULL;
}
if( chordalDeviation < 0.0f ) {
WARNING("wglUseFontOutlines: invalid deviation parameter\n");
SetLastError(ERROR_INVALID_PARAMETER);
return NULL;
}
if( extrusion < 0.0f ) {
WARNING("wglUseFontOutlines: invalid extrusion parameter\n");
SetLastError(ERROR_INVALID_PARAMETER);
return NULL;
}
ofc = (OFContext *) ALLOCZ( sizeof(OFContext) );
if( !ofc )
return NULL;
ofc->format = format;
ofc->chordalDeviation = chordalDeviation;
if( !ScaleFont( hdc, ofc, bUnicode ) )
goto exit;
// handle extrusion
#ifdef VARRAY
if( !((format == WGL_FONT_LINES) && (extrusion == 0.0f)) ) {
#else
if( extrusion != 0.0f ) {
#endif
ofc->ec = extr_Init( extrusion, format );
if( !ofc->ec ) {
goto exit;
}
} else {
ofc->ec = (EXTRContext *) NULL;
}
// init a tess obj
ofc->tess = NULL;
if( ofc->format == WGL_FONT_POLYGONS ) {
GLUtesselator *tess;
if (!(tess = gluNewTess()))
goto exit;
if( ofc->ec ) {
gluTessCallback(tess, GLU_TESS_BEGIN_DATA,
(void(CALLBACK*)()) extr_glBegin);
gluTessCallback(tess, GLU_TESS_END,
(void(CALLBACK*)()) extr_glEnd);
gluTessCallback(tess, GLU_TESS_VERTEX_DATA,
(void(CALLBACK*)()) extr_glVertex);
} else {
gluTessCallback(tess, GLU_BEGIN, (void(CALLBACK*)()) glBegin);
gluTessCallback(tess, GLU_END, (void(CALLBACK*)()) glEnd);
gluTessCallback(tess, GLU_VERTEX, (void(CALLBACK*)()) glVertex2fv);
}
gluTessCallback(tess, GLU_TESS_ERROR_DATA,
(void(CALLBACK*)()) TessError);
gluTessCallback(tess, GLU_TESS_COMBINE_DATA,
(void(CALLBACK*)()) TessCombine);
// set tesselator normal and winding rule
gluTessNormal( tess, 0.0, 0.0, 1.0 );
gluTessProperty( tess, GLU_TESS_WINDING_RULE, GLU_TESS_WINDING_NONZERO);
ofc->tess = tess;
}
status = WFO_SUCCESS;
exit:
if( !status ) {
DestroyOFContext( hdc, ofc );
return NULL;
}
return ofc;
}
/*****************************************************************************
* ScaleFont
*
* To get the best representation of the font, we use its design height, or
* the emSquare size. We then scale emSquare to 1.0.
* A maxChordTolerance value is set, otherwise it was found that some
* glyphs displayed ugly loop intersections. The value .035f was chosen
* after cursory examination of the glyphs.
*
* History:
* 31-Jul-1995 -by- [marcfo]
* Get rid of unicode functions - since we're just accessing text metrics,
* the default 'string' functions should work on all platforms.
*****************************************************************************/
static BOOL
ScaleFont( HDC hdc, OFContext *ofc, BOOL bUnicode )
{
OUTLINETEXTMETRIC otm;
HFONT hfont;
LOGFONT lf;
DWORD textMetricsSize;
FLOAT scale, maxChordTolerance=0.035f;
UINT otmEMSquare;
// Query font metrics
if( GetOutlineTextMetrics( hdc, sizeof(otm), &otm) <= 0 )
// cmd failed, or buffer size=0
return WFO_FAILURE;
otmEMSquare = otm.otmEMSquare;
/*
* The font data is scaled, so that 1.0 maps to the font's em square
* size. Note that it is still possible for glyphs to extend beyond
* this square.
*/
scale = 1.0f / (FLOAT) otmEMSquare;
// create new font object, using largest size
hfont = GetCurrentObject( hdc, OBJ_FONT );
GetObject( hfont, sizeof(LOGFONT), &lf );
lf.lfHeight = otmEMSquare;
lf.lfWidth = 0; // this will choose default width for the height
hfont = CreateFontIndirect(&lf);
// select new font into DC, and save current font
ofc->hfontOld = SelectObject( hdc, hfont );
// set ofc values
ofc->scale = scale;
/* check chord tolerance: in design space, minimum chord tolerance is
* ~1 logical unit, = ofc->scale.
*/
if( ofc->chordalDeviation == 0.0f ) {
// select minimum tolerance in this case
ofc->chordalDeviation = ofc->scale;
}
/* also impose a maximum, or things can get ugly */
else if( ofc->chordalDeviation > maxChordTolerance ) {
// XXX might want to change maxChordTolerance based on scale ?
ofc->chordalDeviation = maxChordTolerance;
}
return WFO_SUCCESS;
}
/*****************************************************************************
* DestroyOFContext
*
*****************************************************************************/
static void
DestroyOFContext( HDC hdc, OFContext* ofc )
{
HFONT hfont;
if( ofc->ec ) {
extr_Finish( ofc->ec );
}
// put back original font object
if( ofc->hfontOld ) {
hfont = SelectObject( hdc, ofc->hfontOld );
DeleteObject( hfont );
}
if( ofc->format == WGL_FONT_POLYGONS ) {
if( ofc->tess )
gluDeleteTess( ofc->tess );
}
FREE( ofc );
}
/*****************************************************************************
* InitLoopBuf
*
* Initializes a LOOP_LIST structure for the Loops of each glyph.
*****************************************************************************/
static LOOP_LIST*
InitLoopBuf( void )
{
LOOP *pLoop;
LOOP_LIST *pLoopList;
DWORD initSize = 10;
pLoopList = (LOOP_LIST*) ALLOC( sizeof(LOOP_LIST) );
if( !pLoopList )
return( (LOOP_LIST *) NULL );
pLoop = (LOOP*) ALLOC( initSize * sizeof(LOOP) );
if( !pLoop ) {
FREE( pLoopList );
return( (LOOP_LIST *) NULL );
}
pLoopList->LoopBuf = pLoop;
pLoopList->nLoops = 0;
pLoopList->LoopBufSize = initSize;
return pLoopList;
}
/*****************************************************************************
* NewLoop
*
* Create a new LOOP structure. The first point in the loop is supplied.
*****************************************************************************/
static LOOP*
NewLoop( LOOP_LIST *pLoopList, POINT2D *pFirstPoint )
{
LOOP *pNewLoop;
PRIM *pPrim;
POINT2D *pVert;
DWORD size = 50;
if( pLoopList->nLoops >= pLoopList->LoopBufSize)
{
// need to increase size of LoopBuf
LOOP *pLoop;
pLoop = (LOOP*) REALLOC(pLoopList->LoopBuf,
(pLoopList->LoopBufSize += size) *
sizeof(LOOP));
if( !pLoop )
return (LOOP *) NULL;
pLoopList->LoopBuf = pLoop;
}
pNewLoop = pLoopList->LoopBuf + pLoopList->nLoops;
// give the loop a block of prims to work with
pPrim = (PRIM *) ALLOC( size * sizeof(PRIM) );
if( !pPrim )
return (LOOP *) NULL;
pNewLoop->PrimBuf = pPrim;
pNewLoop->nPrims = 0;
pNewLoop->PrimBufSize = size;
// give the loop a block of vertices to work with
pVert = (POINT2D*) ALLOC( size * sizeof(POINT2D) );
if( !pVert ) {
FREE( pPrim );
return (LOOP *) NULL;
}
pNewLoop->VertBuf = pVert;
pNewLoop->nVerts = 0;
pNewLoop->VertBufSize = size;
// stick that first point in
pVert->x = pFirstPoint->x;
pVert->y = pFirstPoint->y;
pNewLoop->nVerts++;
// normal buffers - used by extrusion
pNewLoop->FNormBuf = (POINT3D *) NULL;
pNewLoop->VNormBuf = (POINT3D *) NULL;
pLoopList->nLoops++; // increment loop count
return pNewLoop;
}
/*****************************************************************************
* NewPrim
*
* Create a new PRIM structure. The primType is supplied.
*****************************************************************************/
static PRIM*
NewPrim( LOOP *pLoop, DWORD primType )
{
PRIM *pNewPrim;
POINT2D *pVert;
DWORD size = 50;
if( pLoop->nPrims >= pLoop->PrimBufSize)
{
// need to increase size of PrimBuf
PRIM *pPrim;
pPrim = (PRIM *) REALLOC(pLoop->PrimBuf,
(pLoop->PrimBufSize += size) * sizeof(PRIM));
if( !pPrim )
return (PRIM *) NULL;
pLoop->PrimBuf = pPrim;
}
pNewPrim = pLoop->PrimBuf + pLoop->nPrims;
// translate primType to extrusion prim type
primType = (primType == TT_PRIM_LINE) ? PRIM_LINE : PRIM_CURVE;
pNewPrim->primType = primType;
pNewPrim->nVerts = 1; // since we include last point:
/*
* VertIndex must point to the last point of the previous prim
*/
pNewPrim->VertIndex = pLoop->nVerts - 1;
// normal pointers - used by extrusion
pNewPrim->pFNorm = (POINT3D *) NULL;
pNewPrim->pVNorm = (POINT3D *) NULL;
pLoop->nPrims++; // increment prim count
return pNewPrim;
}
/*****************************************************************************
* FreeLoopList
*
* Free up all memory associated with processing a glyph.
*
*****************************************************************************/
static void
FreeLoopList( LOOP_LIST *pLoopList )
{
DWORD nLoops;
if( !pLoopList )
return;
if( pLoopList->LoopBuf ) {
// free up each loop
LOOP *pLoop = pLoopList->LoopBuf;
nLoops = pLoopList->nLoops;
for( ; nLoops; nLoops--, pLoop++ ) {
if( pLoop->PrimBuf )
FREE( pLoop->PrimBuf );
if( pLoop->VertBuf )
FREE( pLoop->VertBuf );
}
FREE( pLoopList->LoopBuf );
}
FREE( pLoopList );
}
/*****************************************************************************
* AppendToVertBuf
*
* Append a vertex to the Loop's VertBuf
*****************************************************************************/
static BOOL
AppendToVertBuf( LOOP *pLoop,
PRIM *pPrim,
POINT2D *p )
{
if( pLoop->nVerts >= pLoop->VertBufSize)
{
POINT2D *vertBuf;
DWORD size = 100;
vertBuf = (POINT2D *) REALLOC(pLoop->VertBuf,
(pLoop->VertBufSize += size) *
sizeof(POINT2D));
if( !vertBuf )
return WFO_FAILURE;
pLoop->VertBuf = vertBuf;
}
pLoop->VertBuf[pLoop->nVerts] = *p;
pLoop->nVerts++;
pPrim->nVerts++;
return WFO_SUCCESS;
}
/*****************************************************************************
* CalcVertPtrs
*
* Calculate vertex ptrs from index values for the prims in a loop.
*****************************************************************************/
static void
CalcVertPtrs( LOOP *pLoop )
{
DWORD nPrims;
PRIM *pPrim;
nPrims = pLoop->nPrims;
pPrim = pLoop->PrimBuf;
for( ; nPrims; pPrim++, nPrims-- ) {
pPrim->pVert = pLoop->VertBuf + pPrim->VertIndex;
}
}
/*****************************************************************************
* GetFixed
*
* Fetch the next 32-bit fixed-point value from a little-endian byte stream,
* convert it to floating-point, and increment the stream pointer to the next
* unscanned byte.
*****************************************************************************/
static FLOAT GetFixed(UCHAR** p)
{
FLOAT value;
FLOAT fraction;
fraction = ((FLOAT) (UINT) GetWord(p)) / 65536.0f;
value = (FLOAT) GetSignedWord(p);
return value+fraction;
}
#ifdef FONT_DEBUG
void
DrawColorCodedLineLoop( LOOP *pLoop, FLOAT zextrusion )
{
POINT2D *p;
DWORD nPrims;
DWORD nVerts;
PRIM *pPrim;
nPrims = pLoop->nPrims;
pPrim = pLoop->PrimBuf;
for( ; nPrims; nPrims--, pPrim++ ) {
if( pPrim->primType == PRIM_LINE ) {
if( nPrims == pLoop->nPrims ) // first prim
glColor3d( 0.5, 0.0, 0.0 );
else
glColor3d( 1.0, 0.0, 0.0 );
} else {
if( nPrims == pLoop->nPrims ) // first prim
glColor3d( 0.5, 0.5, 0.0 );
else
glColor3d( 1.0, 1.0, 0.0 );
}
nVerts = pPrim->nVerts;
p = pPrim->pVert;
glBegin(GL_LINE_STRIP);
for( ; nVerts; nVerts--, p++ ) {
glVertex3f( p->x, p->y, zextrusion );
}
glEnd();
#define DRAW_POINTS 1
#ifdef DRAW_POINTS
glColor3d( 0.0, 0.5, 0.0 );
nVerts = pPrim->nVerts;
p = pPrim->pVert;
glPointSize( 4.0f );
glBegin( GL_POINTS );
for( ; nVerts; nVerts--, p++ ) {
glVertex3f( p->x, p->y, zextrusion );
}
glEnd();
#endif
}
// Draw bright green point at start of loop
if( pLoop->nVerts ) {
glColor3d( 0.0, 1.0, 0.0 );
glPointSize( 4.0f );
glBegin( GL_POINTS );
p = pLoop->VertBuf;
glVertex3f( p->x, p->y, zextrusion );
glEnd();
glPointSize( 1.0f );
}
}
#endif