---

libemf.h

/* -*- c++ -*-
 * EMF: A library for generating ECMA-234 Enhanced Metafiles
 * Copyright (C) 2002 lignum Computing, Inc. <libemf@lignumcomputing.com>
 * $Id: libemf_8h-source.html 43 2002-02-04 20:57:04Z allen $
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2.1 of the License, or (at your option) any later version.
 *
 * This library is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 *
 */
#ifndef _LIBEMF_H
#define _LIBEMF_H 1

#include <cmath>
#include <vector>
#include <map>
#include <functional>
#include <algorithm>

#include <config.h>
#include <emf.h>

#include <wine/w16.h>

namespace EMF {
  const int XMAX_PIXELS = 1024; /*(INT_MAX)*/
  const int YMAX_PIXELS = 768; /*(INT_MAX)*/
  const int XMAX_MM = 320;
  const int YMAX_MM = 240;
  const int RESOLUTION = 96;
  static inline int ROUND_TO_LONG ( int n ) { return ((n+3)/4)*4; }


  struct WCHARSTR {
    WCHAR *const string_;       
    const int length_;          

    WCHARSTR ( WCHAR *const string, const int length )
      : string_( string ), length_( length ) {}
  };


  struct CHARSTR {
    CHAR *const string_;        
    const int length_;          

    CHARSTR ( CHAR *const string, const int length )
      : string_( string ), length_( length ) {}
  };


  struct BYTEARRAY {
    BYTE *const array_;         
    const int n_;               

    BYTEARRAY ( BYTE *const array, const int n )
      : array_( array ), n_( n ) {}
  };


  struct POINTLARRAY {
    POINTL *const points_;      
    const DWORD n_;             

    POINTLARRAY ( POINTL *const points, const DWORD n )
      : points_( points ), n_( n ) {}
  };


  struct POINT16ARRAY {
    POINT16 *const points_;     
    const DWORD n_;             

    POINT16ARRAY ( POINT16 *const points, const DWORD n )
      : points_( points ), n_( n ) {}
  };


  struct INTARRAY {
    INT *const ints_;           
    const DWORD n_;             

    INTARRAY ( INT *const ints, const DWORD n )
      : ints_( ints ), n_( n ) {}
  };


  struct DWORDARRAY {
    DWORD *const dwords_;       
    const DWORD n_;             

    DWORDARRAY ( DWORD *const dwords, const DWORD n )
      : dwords_( dwords ), n_( n ) {}
  };


  struct PADDING {
    static const char padding_[4]; 
    const int size_;            

    PADDING ( const int size ) : size_( size ) {}
  };
  

  class DATASTREAM {
    bool swap_;
    ::FILE* fp_;

    static bool bigEndian ( void );
  public:
    DATASTREAM ( ::FILE* fp = 0 ) : swap_( bigEndian() ), fp_( fp ) {}
    void setStream ( ::FILE* fp ) { fp_ = fp; }
    DATASTREAM& operator<< ( const BYTE& byte )
    {
      fwrite( &byte, sizeof(BYTE), 1, fp_ );
      return *this;
    }
    DATASTREAM& operator>> ( BYTE& byte )
    {
      fread( &byte, sizeof(BYTE), 1, fp_ );
      return *this;
    }
    DATASTREAM& operator<< ( const WORD& word )
    {
      if ( swap_ ) {
        unsigned char const * p = (unsigned char const*)&word;
        fwrite( &p[1], sizeof(unsigned char), 1, fp_ );
        fwrite( &p[0], sizeof(unsigned char), 1, fp_ );
      }
      else
        fwrite( &word, sizeof(WORD), 1, fp_ );
      return *this;
    }
    DATASTREAM& operator>> ( WORD& word )
    {
      if ( swap_ ) {
        unsigned char* p = (unsigned char*)&word;
        fread( &p[1], sizeof(unsigned char), 1, fp_ );
        fread( &p[0], sizeof(unsigned char), 1, fp_ );
      }
      else
        fread( &word, sizeof(WORD), 1, fp_ );
      return *this;
    }
    DATASTREAM& operator<< ( const INT16& word )
    {
      if ( swap_ ) {
        unsigned char const * p = (unsigned char const*)&word;
        fwrite( &p[1], sizeof(unsigned char), 1, fp_ );
        fwrite( &p[0], sizeof(unsigned char), 1, fp_ );
      }
      else
        fwrite( &word, sizeof(INT16), 1, fp_ );
      return *this;
    }
    DATASTREAM& operator>> ( INT16& word )
    {
      if ( swap_ ) {
        unsigned char* p = (unsigned char*)&word;
        fread( &p[1], sizeof(unsigned char), 1, fp_ );
        fread( &p[0], sizeof(unsigned char), 1, fp_ );
      }
      else
        fread( &word, sizeof(INT16), 1, fp_ );
      return *this;
    }
    DATASTREAM& operator<< ( const DWORD& dword )
    {
      if ( swap_ ) {
        unsigned char const* p = (unsigned char const*)&dword;
        fwrite( &p[3], sizeof(unsigned char), 1, fp_ );
        fwrite( &p[2], sizeof(unsigned char), 1, fp_ );
        fwrite( &p[1], sizeof(unsigned char), 1, fp_ );
        fwrite( &p[0], sizeof(unsigned char), 1, fp_ );
      }
      else
        fwrite( &dword, sizeof(DWORD), 1, fp_ );
      return *this;
    }
    DATASTREAM& operator>> ( DWORD& dword )
    {
      if ( swap_ ) {
        unsigned char* p = (unsigned char*)&dword;
        fread( &p[3], sizeof(unsigned char), 1, fp_ );
        fread( &p[2], sizeof(unsigned char), 1, fp_ );
        fread( &p[1], sizeof(unsigned char), 1, fp_ );
        fread( &p[0], sizeof(unsigned char), 1, fp_ );
      }
      else
        fread( &dword, sizeof(DWORD), 1, fp_ );
      return *this;
    }
    DATASTREAM& operator<< ( const LONG& long_ )
    {
      if ( swap_ ) {
        unsigned char const* p = (unsigned char const*)&long_;
        fwrite( &p[3], sizeof(unsigned char), 1, fp_ );
        fwrite( &p[2], sizeof(unsigned char), 1, fp_ );
        fwrite( &p[1], sizeof(unsigned char), 1, fp_ );
        fwrite( &p[0], sizeof(unsigned char), 1, fp_ );
      }
      else
        fwrite( &long_, sizeof(LONG), 1, fp_ );
      return *this;
    }
    DATASTREAM& operator>> ( LONG& long_ )
    {
      if ( swap_ ) {
        unsigned char* p = (unsigned char*)&long_;
        fread( &p[3], sizeof(unsigned char), 1, fp_ );
        fread( &p[2], sizeof(unsigned char), 1, fp_ );
        fread( &p[1], sizeof(unsigned char), 1, fp_ );
        fread( &p[0], sizeof(unsigned char), 1, fp_ );
      }
      else
        fread( &long_, sizeof(LONG), 1, fp_ );
      return *this;
    }
    DATASTREAM& operator<< ( const INT& int_ )
    {
      if ( swap_ ) {
        unsigned char const* p = (unsigned char const*)&int_;
        fwrite( &p[3], sizeof(unsigned char), 1, fp_ );
        fwrite( &p[2], sizeof(unsigned char), 1, fp_ );
        fwrite( &p[1], sizeof(unsigned char), 1, fp_ );
        fwrite( &p[0], sizeof(unsigned char), 1, fp_ );
      }
      else
        fwrite( &int_, sizeof(INT), 1, fp_ );
      return *this;
    }
    DATASTREAM& operator>> ( INT& int_ )
    {
      if ( swap_ ) {
        unsigned char* p = (unsigned char*)&int_;
        fread( &p[3], sizeof(unsigned char), 1, fp_ );
        fread( &p[2], sizeof(unsigned char), 1, fp_ );
        fread( &p[1], sizeof(unsigned char), 1, fp_ );
        fread( &p[0], sizeof(unsigned char), 1, fp_ );
      }
      else
        fread( &int_, sizeof(INT), 1, fp_ );
      return *this;
    }
    DATASTREAM& operator<< ( const UINT& uint )
    {
      if ( swap_ ) {
        unsigned char const* p = (unsigned char const*)&uint;
        fwrite( &p[3], sizeof(unsigned char), 1, fp_ );
        fwrite( &p[2], sizeof(unsigned char), 1, fp_ );
        fwrite( &p[1], sizeof(unsigned char), 1, fp_ );
        fwrite( &p[0], sizeof(unsigned char), 1, fp_ );
      }
      else
        fwrite( &uint, sizeof(UINT), 1, fp_ );
      return *this;
    }
    DATASTREAM& operator>> ( UINT& uint )
    {
      if ( swap_ ) {
        unsigned char* p = (unsigned char*)&uint;
        fread( &p[3], sizeof(unsigned char), 1, fp_ );
        fread( &p[2], sizeof(unsigned char), 1, fp_ );
        fread( &p[1], sizeof(unsigned char), 1, fp_ );
        fread( &p[0], sizeof(unsigned char), 1, fp_ );
      }
      else
        fread( &uint, sizeof(UINT), 1, fp_ );
      return *this;
    }
    DATASTREAM& operator<< ( const FLOAT& float_ )
    {
      if ( swap_ ) {
        unsigned char const* p = (unsigned char const*)&float_;
        fwrite( &p[3], sizeof(unsigned char), 1, fp_ );
        fwrite( &p[2], sizeof(unsigned char), 1, fp_ );
        fwrite( &p[1], sizeof(unsigned char), 1, fp_ );
        fwrite( &p[0], sizeof(unsigned char), 1, fp_ );
      }
      else
        fwrite( &float_, sizeof(FLOAT), 1, fp_ );
      return *this;
    }
    DATASTREAM& operator>> ( FLOAT& float_ )
    {
      if ( swap_ ) {
        unsigned char* p = (unsigned char*)&float_;
        fread( &p[3], sizeof(unsigned char), 1, fp_ );
        fread( &p[2], sizeof(unsigned char), 1, fp_ );
        fread( &p[1], sizeof(unsigned char), 1, fp_ );
        fread( &p[0], sizeof(unsigned char), 1, fp_ );
      }
      else
        fread( &float_, sizeof(FLOAT), 1, fp_ );
      return *this;
    }
    DATASTREAM& operator<< ( const PADDING& padding )
    {
      if ( padding.size_ != 0 )
        fwrite( &padding.padding_, sizeof(CHAR), padding.size_, fp_ );
      return *this;
    }
    DATASTREAM& operator<< ( const RECTL& rectl )
    {
      *this << rectl.left << rectl.top << rectl.right << rectl.bottom;
      return *this;
    }
    DATASTREAM& operator>> ( RECTL& rectl )
    {
      *this >> rectl.left >> rectl.top >> rectl.right >> rectl.bottom;
      return *this;
    }
    DATASTREAM& operator<< ( const SIZEL& sizel )
    {
      *this << sizel.cx << sizel.cy;
      return *this;
    }
    DATASTREAM& operator>> ( SIZEL& sizel )
    {
      *this >> sizel.cx >> sizel.cy;
      return *this;
    }
    DATASTREAM& operator<< ( const WCHARSTR& wcharstr )
    {
      for ( int i = 0; i < wcharstr.length_; i++ )
        *this << wcharstr.string_[i];
      return *this;
    }
    DATASTREAM& operator>> ( WCHARSTR& wcharstr )
    {
      for ( int i = 0; i < wcharstr.length_; i++ )
        *this >> wcharstr.string_[i];
      return *this;
    }
    DATASTREAM& operator<< ( const CHARSTR& charstr )
    {
      fwrite( charstr.string_, sizeof(CHAR), charstr.length_, fp_ );
      return *this;
    }
    DATASTREAM& operator>> ( CHARSTR& charstr )
    {
      fread( charstr.string_, sizeof(CHAR), charstr.length_, fp_ );
      return *this;
    }
    DATASTREAM& operator<< ( const ::EMR& emr )
    {
      *this << emr.iType << emr.nSize;
      return *this;
    }
    DATASTREAM& operator>> ( ::EMR& emr )
    {
      *this >> emr.iType >> emr.nSize;
      return *this;
    }
    DATASTREAM& operator<< ( const POINT& point )
    {
      *this << point.x << point.y;
      return *this;
    }
    DATASTREAM& operator>> ( POINT& point )
    {
      *this >> point.x >> point.y;
      return *this;
    }
    DATASTREAM& operator<< ( const POINTL& pointl )
    {
      *this << pointl.x << pointl.y;
      return *this;
    }
    DATASTREAM& operator>> ( POINTL& pointl )
    {
      *this >> pointl.x >> pointl.y;
      return *this;
    }
    DATASTREAM& operator<< ( const POINT16& point )
    {
      *this << point.x << point.y;
      return *this;
    }
    DATASTREAM& operator>> ( POINT16& point )
    {
      *this >> point.x >> point.y;
      return *this;
    }
    DATASTREAM& operator<< ( const XFORM& xform )
    {
      *this << xform.eM11 << xform.eM12 << xform.eM21 << xform.eM22
            << xform.eDx << xform.eDy;
      return *this;
    }
    DATASTREAM& operator>> ( XFORM& xform )
    {
      *this >> xform.eM11 >> xform.eM12 >> xform.eM21 >> xform.eM22
            >> xform.eDx >> xform.eDy;
      return *this;
    }
    DATASTREAM& operator<< ( const BYTEARRAY& array )
    {
      fwrite( array.array_, sizeof(BYTE), array.n_, fp_ );
      return *this;
    }
    DATASTREAM& operator>> ( BYTEARRAY& array )
    {
      fread( array.array_, sizeof(BYTE), array.n_, fp_ );
      return *this;
    }
    DATASTREAM& operator<< ( const POINTLARRAY& array )
    {
      for ( unsigned int i = 0; i < array.n_; i++ )
        *this << array.points_[i];
      return *this;
    }
    DATASTREAM& operator>> ( POINTLARRAY& array )
    {
      for ( unsigned int i = 0; i < array.n_; i++ )
        *this >> array.points_[i];
      return *this;
    }
    DATASTREAM& operator<< ( const POINT16ARRAY& array )
    {
      for ( unsigned int i = 0; i < array.n_; i++ )
        *this << array.points_[i];
      return *this;
    }
    DATASTREAM& operator>> ( POINT16ARRAY& array )
    {
      for ( unsigned int i = 0; i < array.n_; i++ )
        *this >> array.points_[i];
      return *this;
    }
    DATASTREAM& operator<< ( const INTARRAY& array )
    {
      for ( unsigned int i = 0; i < array.n_; i++ )
        *this << array.ints_[i];
      return *this;
    }
    DATASTREAM& operator>> ( INTARRAY& array )
    {
      for ( unsigned int i = 0; i < array.n_; i++ )
        *this >> array.ints_[i];
      return *this;
    }
    DATASTREAM& operator<< ( const DWORDARRAY& array )
    {
      for ( unsigned int i = 0; i < array.n_; i++ )
        *this << array.dwords_[i];
      return *this;
    }
    DATASTREAM& operator>> ( DWORDARRAY& array )
    {
      for ( unsigned int i = 0; i < array.n_; i++ )
        *this >> array.dwords_[i];
      return *this;
    }
    DATASTREAM& operator<< ( const ::EMRTEXT& text )
    {
      *this << text.ptlReference << text.nChars << text.offString << text.fOptions
         << text.rcl << text.offDx;
      return *this;
    }
    DATASTREAM& operator>> ( ::EMRTEXT& text )
    {
      *this >> text.ptlReference >> text.nChars >> text.offString >> text.fOptions
            >> text.rcl >> text.offDx;
      return *this;
    }
    DATASTREAM& operator<< ( const LOGPEN& pen )
    {
      *this << pen.lopnStyle << pen.lopnWidth << pen.lopnColor;
      return *this;
    }
    DATASTREAM& operator>> ( LOGPEN& pen )
    {
      *this >> pen.lopnStyle >> pen.lopnWidth >> pen.lopnColor;
      return *this;
    }
    DATASTREAM& operator<< ( const EXTLOGPEN& pen )
    {
      // *** How big is this structure if there are no style entries? ***
      *this << pen.elpPenStyle << pen.elpWidth << pen.elpBrushStyle << pen.elpColor
            << pen.elpHatch << pen.elpNumEntries;
      return *this;
    }
    DATASTREAM& operator>> ( EXTLOGPEN& pen )
    {
      // *** How big is this structure if there are no style entries? ***
      *this >> pen.elpPenStyle >> pen.elpWidth >> pen.elpBrushStyle >> pen.elpColor
            >> pen.elpHatch >> pen.elpNumEntries;
      return *this;
    }
    DATASTREAM& operator<< ( const LOGBRUSH& brush )
    {
      *this << brush.lbStyle << brush.lbColor << brush.lbHatch;
      return *this;
    }
    DATASTREAM& operator>> ( LOGBRUSH& brush )
    {
      *this >> brush.lbStyle >> brush.lbColor >> brush.lbHatch;
      return *this;
    }
    DATASTREAM& operator<< ( const LOGFONTW& font )
    {
      *this << font.lfHeight << font.lfWidth << font.lfEscapement
            << font.lfOrientation << font.lfWeight << font.lfItalic
            << font.lfUnderline << font.lfStrikeOut << font.lfCharSet
            << font.lfOutPrecision << font.lfClipPrecision << font.lfQuality
            << font.lfPitchAndFamily
            << WCHARSTR( const_cast<WCHAR*const>(font.lfFaceName), LF_FACESIZE );
      return *this;
    }
    DATASTREAM& operator>> ( LOGFONTW& font )
    {
      WCHARSTR wFaceName( font.lfFaceName, LF_FACESIZE );

      *this >> font.lfHeight >> font.lfWidth >> font.lfEscapement
            >> font.lfOrientation >> font.lfWeight >> font.lfItalic
            >> font.lfUnderline >> font.lfStrikeOut >> font.lfCharSet
            >> font.lfOutPrecision >> font.lfClipPrecision >> font.lfQuality
            >> font.lfPitchAndFamily
            >> wFaceName;
      return *this;
    }
    DATASTREAM& operator<< ( const PANOSE& panose )
    {
      fwrite( &panose, sizeof(PANOSE), 1, fp_ );
      return *this;
    }
    DATASTREAM& operator>> ( PANOSE& panose )
    {
      fread( &panose, sizeof(PANOSE), 1, fp_ );
      return *this;
    }
    DATASTREAM& operator<< ( const EXTLOGFONTW& font )
    {
      *this << font.elfLogFont
            << WCHARSTR( const_cast<WCHAR*const>(font.elfFullName),
                         LF_FULLFACESIZE )
            << WCHARSTR( const_cast<WCHAR*const>(font.elfStyle), LF_FACESIZE )
            << font.elfVersion << font.elfStyleSize << font.elfMatch
            << font.elfReserved
            << BYTEARRAY( const_cast<BYTE*const>(font.elfVendorId),
                          ELF_VENDOR_SIZE )
            << font.elfCulture << font.elfPanose;
      return *this;
    }
    DATASTREAM& operator>> ( EXTLOGFONTW& font )
    {
      WCHARSTR wFullName( font.elfFullName, LF_FULLFACESIZE );
      WCHARSTR wStyle( font.elfStyle, LF_FACESIZE );
      BYTEARRAY bVendorId( font.elfVendorId, ELF_VENDOR_SIZE );
      *this >> font.elfLogFont
            >> wFullName >> wStyle
            >> font.elfVersion >> font.elfStyleSize >> font.elfMatch
            >> font.elfReserved >> bVendorId
            >> font.elfCulture >> font.elfPanose;
      return *this;
    }
    DATASTREAM& operator<< ( const LOGPALETTE& palette )
    {
      // *** How big is this structure if the palette is empty? ***
      *this << palette.palVersion << palette.palNumEntries;
      return *this;
    }
    DATASTREAM& operator>> ( LOGPALETTE& palette )
    {
      // *** How big is this structure if the palette is empty? ***
      *this >> palette.palVersion >> palette.palNumEntries;
      return *this;
    }
  };

  class METAFILEDEVICECONTEXT;


  class METARECORD {
  public:
    virtual void execute ( METAFILEDEVICECONTEXT* source, HDC dc ) const = 0;
    virtual bool serialize ( DATASTREAM ds ) = 0;
    virtual int size ( void ) const = 0;
    virtual ~METARECORD( ) { }
#ifdef ENABLE_EDITING

    virtual void edit ( void ) const {}
#endif
  };

#ifdef ENABLE_EDITING
  /* Miscellaneous editing routines */
  inline void edit_rectl ( const char* tag, const RECTL& rectl )
  {
    printf( "\t%s\t: (%ld, %ld) - (%ld, %ld)\n", tag, rectl.left, rectl.top,
            rectl.right, rectl.bottom );
  }

  inline void edit_xform ( const char* tag, const XFORM& xform )
  {
    printf( "\t%s.eM11\t: %f\n", tag, xform.eM11 );
    printf( "\t%s.eM12\t: %f\n", tag, xform.eM12 );
    printf( "\t%s.eM21\t: %f\n", tag, xform.eM21 );
    printf( "\t%s.eM22\t: %f\n", tag, xform.eM22 );
    printf( "\t%s.eDx\t: %f\n", tag, xform.eDx );
    printf( "\t%s.eDy\t: %f\n", tag, xform.eDy );
  }

  inline void edit_color ( const char* tag, const COLORREF& color )
  {
    printf( "\t%s\t: R(0x%02lx) G(0x%02lx) B(0x%02lx)\n", tag,
            GetRValue( color ), GetGValue( color ), GetBValue( color ) );
  }

  inline void edit_sizel ( const char* tag, const SIZEL& size )
  {
    printf( "\t%s\t: (%ld, %ld)\n", tag, size.cx, size.cy );
  }

  inline void edit_pointl ( const char* tag, const POINTL& point )
  {
    printf( "\t%s\t: (%ld, %ld)\n", tag, point.x, point.y );
  }

  inline void edit_pointlarray ( const char* tag, const DWORD cptl,
                                  const POINTL* points )
  {
    printf( "\tcptl%s\t: %ld\n", tag, cptl );
    printf( "\taptl%s\t: ", tag );
    if ( cptl > 0 )
      printf( "%ld, %ld\n", points[0].x, points[0].y );
    else
      puts( "" );
    for ( DWORD i = 1; i < cptl; i++ )
      printf( "\t\t%s  %ld, %ld\n", tag, points[i].x, points[i].y );
  }

  inline void edit_point16array ( const char* tag, const unsigned int cpts,
                                  const POINT16* points )
  {
    printf( "\tcpts%s\t: %d\n", tag, cpts );
    printf( "\tapts%s\t: ", tag );
    if ( cpts > 0 )
      printf( "%d, %d\n", points[0].x, points[0].y );
    else
      puts( "" );
    for ( unsigned int i = 1; i < cpts; i++ )
      printf( "\t\t%s  %d, %d\n", tag, points[i].x, points[i].y );
  }

  inline void edit_pen_style ( const char* tag, DWORD style )
  {
    printf( "\t%s\t: ", tag );
    switch ( style & PS_STYLE_MASK ) {
    case PS_SOLID: printf( "PS_SOLID" ); break;
    case PS_DASH: printf( "PS_DASH" ); break;
    case PS_DOT: printf( "PS_DOT" ); break;
    case PS_DASHDOT: printf( "PS_DASHDOT" ); break;
    case PS_DASHDOTDOT: printf( "PS_DASHDOTDOT" ); break;
    case PS_NULL: printf( "PS_NULL" ); break;
    case PS_INSIDEFRAME: printf( "PS_INSIDEFRAME" ); break;
    case PS_USERSTYLE: printf( "PS_USERSTYLE" ); break;
    case PS_ALTERNATE: printf( "PS_ALTERNATE" ); break;
    }
    switch ( style & PS_ENDCAP_MASK ) {
    case PS_ENDCAP_ROUND: printf( " | PS_ENDCAP_ROUND" ); break;
    case PS_ENDCAP_SQUARE: printf( " | PS_ENDCAP_SQUARE" ); break;
    case PS_ENDCAP_FLAT: printf( " | PS_ENDCAP_FLAT" ); break;
    }
    switch ( style & PS_JOIN_MASK ) {
    case PS_JOIN_ROUND: printf( " | PS_JOIN_ROUND" ); break;
    case PS_JOIN_BEVEL: printf( " | PS_JOIN_BEVEL" ); break;
    case PS_JOIN_MITER: printf( " | PS_JOIN_MITER" ); break;
    }
    switch ( style & PS_TYPE_MASK ) {
    case PS_COSMETIC: printf( " | PS_COSMETIC" ); break;
    case PS_GEOMETRIC: printf( " | PS_GEOMETRIC" ); break;
    }
    printf( "\n" );
  }

  inline void edit_brush_style ( const char* tag, DWORD style )
  {
    printf( "\t%s\t: ", tag );
    switch ( style ) {
    case BS_SOLID: printf( "BS_SOLID" ); break;
    case BS_NULL: printf( "BS_NULL" ); break;
    case BS_HATCHED: printf( "BS_HATCHED" ); break;
    case BS_PATTERN: printf( "BS_PATTERN" ); break;
    case BS_INDEXED: printf( "BS_INDEXED" ); break;
    case BS_DIBPATTERN: printf( "BS_DIBPATTERN" ); break;
    case BS_DIBPATTERNPT: printf( "BS_DIBPATTERNPT" ); break;
    case BS_PATTERN8X8: printf( "BS_PATTERN8X8" ); break;
    case BS_DIBPATTERN8X8: printf( "BS_DIBPATTERN8X8" ); break;
    case BS_MONOPATTERN: printf( "BS_DIBPATTERN8X8" ); break;
    default: printf( "unknown(%ld)", style );
    }
    printf( "\n" );
  }

  inline void edit_brush_hatch ( const char* tag, DWORD hatch )
  {
    printf( "\t%s\t: ", tag );
    switch ( hatch ) {
    case HS_HORIZONTAL: printf( "HS_HORIZONTAL" ); break;
    case HS_VERTICAL: printf( "HS_VERTICAL" ); break;
    case HS_FDIAGONAL: printf( "HS_FDIAGONAL" ); break;
    case HS_BDIAGONAL: printf( "HS_BDIAGONAL" ); break;
    case HS_CROSS: printf( "HS_CROSS" ); break;
    case HS_DIAGCROSS: printf( "HS_DIAGCROSS" ); break;
    default: printf( "unknown(%ld)", hatch );
    }
    printf( "\n" );
  }
#endif

  enum OBJECTTYPE { O_METAFILEDEVICECONTEXT     = OBJ_METADC,
                    O_FONT                      = OBJ_FONT,
                    O_PEN                       = OBJ_PEN,
                    O_EXTPEN                    = OBJ_EXTPEN,
                    O_BRUSH                     = OBJ_BRUSH,
                    O_PALETTE                   = OBJ_PAL };
#if 0

  static char* typStr ( OBJECTTYPE type )
  {
    switch (type) {
    case O_METAFILEDEVICECONTEXT:
      return "metafile device context";
    case O_FONT:
      return "font";
    case O_PEN:
      return "pen";
    case O_EXTPEN:
      return "extended pen";
    case O_BRUSH:
      return "brush";
    case O_PALETTE:
      return "palette";
    }
    return "unknown object";
  }
#endif


  class OBJECT {
  public:
    HGDIOBJ handle;             

    virtual ~OBJECT () {}
    OBJECT ( void ) : handle( 0 ) {}
    virtual OBJECTTYPE getType ( void ) const = 0;
  };


  class GRAPHICSOBJECT : public OBJECT {
  public:
    virtual ~GRAPHICSOBJECT () {}
    std::map< HDC, HGDIOBJ > contexts;
    virtual METARECORD* newEMR ( HDC dc, HGDIOBJ handle ) = 0;
  };

  typedef METARECORD*(*METARECORDCTOR)(DATASTREAM&);

  class GLOBALOBJECTS {
    std::vector<OBJECT*> objects;

    std::map< DWORD, METARECORDCTOR > new_records;

  public:
    GLOBALOBJECTS ( void );
    ~GLOBALOBJECTS ( void );
    HGDIOBJ add ( OBJECT* object );
    OBJECT* find ( const HGDIOBJ handle );
    void remove ( const OBJECT* object );

    std::vector<EMF::OBJECT*>::const_iterator begin ( void ) const
    { return objects.begin(); }
    std::vector<EMF::OBJECT*>::const_iterator end ( void ) const
    { return objects.end(); }

    METARECORDCTOR newRecord ( DWORD iType ) const;

    static EMF::METARECORD* new_eof ( DATASTREAM& ds );
    static EMF::METARECORD* new_setviewportorgex ( DATASTREAM& ds );
    static EMF::METARECORD* new_setwindoworgex ( DATASTREAM& ds );
    static EMF::METARECORD* new_setviewportextex ( DATASTREAM& ds );
    static EMF::METARECORD* new_setwindowextex ( DATASTREAM& ds );
    static EMF::METARECORD* new_scaleviewportextex ( DATASTREAM& ds );
    static EMF::METARECORD* new_scalewindowextex ( DATASTREAM& ds );
    static EMF::METARECORD* new_modifyworldtransform ( DATASTREAM& ds );
    static EMF::METARECORD* new_setworldtransform ( DATASTREAM& ds );
    static EMF::METARECORD* new_settextalign ( DATASTREAM& ds );
    static EMF::METARECORD* new_settextcolor ( DATASTREAM& ds );
    static EMF::METARECORD* new_setbkcolor ( DATASTREAM& ds );
    static EMF::METARECORD* new_setbkmode ( DATASTREAM& ds );
    static EMF::METARECORD* new_setpolyfillmode ( DATASTREAM& ds );
    static EMF::METARECORD* new_setmapmode ( DATASTREAM& ds );
    static EMF::METARECORD* new_selectobject ( DATASTREAM& ds );
    static EMF::METARECORD* new_deleteobject ( DATASTREAM& ds );
    static EMF::METARECORD* new_movetoex ( DATASTREAM& ds );
    static EMF::METARECORD* new_lineto ( DATASTREAM& ds );
    static EMF::METARECORD* new_arc ( DATASTREAM& ds );
    static EMF::METARECORD* new_arcto ( DATASTREAM& ds );
    static EMF::METARECORD* new_rectangle ( DATASTREAM& ds );
    static EMF::METARECORD* new_ellipse ( DATASTREAM& ds );
    static EMF::METARECORD* new_polyline ( DATASTREAM& ds );
    static EMF::METARECORD* new_polyline16 ( DATASTREAM& ds );
    static EMF::METARECORD* new_polygon ( DATASTREAM& ds );
    static EMF::METARECORD* new_polygon16 ( DATASTREAM& ds );
    static EMF::METARECORD* new_polypolygon ( DATASTREAM& ds );
    static EMF::METARECORD* new_polypolygon16 ( DATASTREAM& ds );
    static EMF::METARECORD* new_polybezier ( DATASTREAM& ds );
    static EMF::METARECORD* new_polybezier16 ( DATASTREAM& ds );
    static EMF::METARECORD* new_polybezierto ( DATASTREAM& ds );
    static EMF::METARECORD* new_polybezierto16 ( DATASTREAM& ds );
    static EMF::METARECORD* new_polylineto ( DATASTREAM& ds );
    static EMF::METARECORD* new_polylineto16 ( DATASTREAM& ds );
    static EMF::METARECORD* new_exttextouta ( DATASTREAM& ds );
    static EMF::METARECORD* new_setpixelv ( DATASTREAM& ds );
    static EMF::METARECORD* new_createpen ( DATASTREAM& ds );
    static EMF::METARECORD* new_extcreatepen ( DATASTREAM& ds );
    static EMF::METARECORD* new_createbrushindirect ( DATASTREAM& ds );
    static EMF::METARECORD* new_extcreatefontindirectw ( DATASTREAM& ds );
    static EMF::METARECORD* new_fillpath ( DATASTREAM& ds );
    static EMF::METARECORD* new_strokepath ( DATASTREAM& ds );
    static EMF::METARECORD* new_beginpath ( DATASTREAM& ds );
    static EMF::METARECORD* new_endpath ( DATASTREAM& ds );
    static EMF::METARECORD* new_closefigure ( DATASTREAM& ds );
    static EMF::METARECORD* new_savedc ( DATASTREAM& ds );
    static EMF::METARECORD* new_restoredc ( DATASTREAM& ds );
    static EMF::METARECORD* new_setmetargn ( DATASTREAM& ds );
  };

  extern GLOBALOBJECTS globalObjects;


  class ENHMETAHEADER : public METARECORD, public ::ENHMETAHEADER {

    LPWSTR description_w;
    int description_size;

  public:
    ENHMETAHEADER ( LPCWSTR description = 0 )
      : description_w( 0 ), description_size( 0 )
    {
      iType = EMR_HEADER;
      nSize = sizeof( ::ENHMETAHEADER );

      // Compute the bounds
      RECTL default_bounds = { 0, 0, 0, 0 };
      rclBounds = default_bounds;
      RECTL default_frame = { 0, 0, 0, 0 };
      rclFrame = default_frame;
      dSignature = ENHMETA_SIGNATURE;
      nVersion = 0x10000;
      nBytes = nSize;
      nRecords = 1;
      nHandles = 0;
      sReserved = 0;
      nDescription = 0;
      offDescription = 0;
      nPalEntries = 0;
      szlDevice.cx = XMAX_PIXELS;
      szlDevice.cy = YMAX_PIXELS;
      szlMillimeters.cx = XMAX_MM;
      szlMillimeters.cy = YMAX_MM;
      //
      cbPixelFormat = 0;
      offPixelFormat = 0;
      bOpenGL = FALSE;
      //
      szlMicrometers.cx = 1000 * szlMillimeters.cx;
      szlMicrometers.cy = 1000 * szlMillimeters.cy;

      if ( description ) {
        // Count the number of characters in the description
        int description_count = 0, nulls = 0;
        LPCWSTR description_p = description;
        while ( nulls < 3 ) {
          description_count++;
          if ( (*description_p++) == 0 ) nulls++;
        }

        // Make sure that the TOTAL record length will be a multiple of 4

        int record_size = ROUND_TO_LONG( sizeof( ::ENHMETAHEADER ) +
                                         sizeof( WCHAR ) * description_count );
        description_size =
          (record_size - sizeof( ::ENHMETAHEADER )) / sizeof( WCHAR );

        description_w = new WCHAR[ description_size ];

        memset( description_w, 0, sizeof(WCHAR) * description_size );

        for ( int i=0; i<description_count; i++ )
          description_w[i] = *description++;

        nSize = nBytes = record_size;
        nDescription = description_count;
        offDescription = sizeof( ::ENHMETAHEADER );
      }
    }
    
    ~ENHMETAHEADER ( )
    {
      if ( description_w ) delete[] description_w;
    }
    bool serialize ( DATASTREAM ds )
    {
      ds << iType << nSize
         << rclBounds << rclFrame
         << dSignature << nVersion << nBytes << nRecords << nHandles << sReserved
         << nDescription << offDescription << nPalEntries
         << szlDevice << szlMillimeters
         << cbPixelFormat << offPixelFormat << bOpenGL
         << szlMicrometers
         << WCHARSTR( description_w, description_size );
      return true;
    }
    bool unserialize ( DATASTREAM ds )
    {
      ds >> iType >> nSize
         >> rclBounds >> rclFrame
         >> dSignature >> nVersion >> nBytes >> nRecords >> nHandles >> sReserved
         >> nDescription >> offDescription >> nPalEntries
         >> szlDevice >> szlMillimeters;

      // Some elements of the metafile header were added at later dates

#define OffsetOf( a, b ) ((unsigned int)(((char*)&(((::ENHMETAHEADER*)a)->b)) - \
(char*)((::ENHMETAHEADER*)a)))

      if ( OffsetOf( this, szlMicrometers ) <= offDescription )
        ds >> cbPixelFormat >> offPixelFormat >> bOpenGL;

#undef OffsetOf

      if ( sizeof(::ENHMETAHEADER) <= offDescription )
        ds >> szlMicrometers;

      // Should now probably check that the offset is correct...

      description_size = ( nSize - offDescription ) / sizeof(WCHAR);
      description_w = new WCHAR[ description_size ];

      WCHARSTR description( description_w, description_size );

      ds >> description;

      return true;
    }
    int size ( void ) const { return nSize; }
    void execute ( METAFILEDEVICECONTEXT* /*source*/, HDC /*dc*/ ) const
    {
      // Actually handled by the destination device context.
    }
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      printf( "*HEADER*\n" );
      printf( "\tiType\t\t\t: %ld\n", iType );
      printf( "\tnSize\t\t\t: %ld\n", nSize );
      edit_rectl( "rclBounds\t", rclBounds );
      edit_rectl( "rclFrame\t", rclFrame );
      printf( "\tdSignature\t\t: %.4s\n", (const char*)&dSignature );
      printf( "\tnVersion\t\t: 0x%x\n", (unsigned int)nVersion );
      printf( "\tnBytes\t\t\t: %ld\n", nBytes );
      printf( "\tnRecords\t\t: %ld\n", nRecords );
      printf( "\tnHandles\t\t: %d\n", nHandles );
      printf( "\tnDescription\t\t: %ld\n", nDescription );
      printf( "\toffDescription\t\t: %ld\n", offDescription );
      printf( "\tnPalEntries\t\t: %ld\n", nPalEntries );
      edit_sizel( "szlDevice\t", szlDevice );
      edit_sizel( "szlMillimeters\t", szlMillimeters );

      /* Make a crude guess as to the age of this file */
#define OffsetOf( a, b ) ((unsigned int)(((const char*)&(((const ::ENHMETAHEADER*)a)->b)) - \
(const char*)((const ::ENHMETAHEADER*)a)))

      if ( OffsetOf( this, cbPixelFormat ) <= offDescription ) {
        printf( "\tcbPixelFormat\t\t: %ld\n", cbPixelFormat );
        printf( "\toffPixelFormat\t\t: %ld\n", offPixelFormat );
        printf( "\tbOpenGL\t\t\t: %ld\n", bOpenGL );

        if ( sizeof(::ENHMETAHEADER) <= offDescription ) {
          edit_sizel( "szlMicrometers\t", szlMicrometers );
        }
      }

#undef OffsetOf

      if ( nDescription != 0 ) {

        wchar_t last_w = 0;
        WCHAR* description = description_w;

        printf( "\tDescription:" );

        for ( DWORD i = 0; i < nDescription; i++ ) {

          wchar_t w = *description++; /* This is not true, really. UNICODE is not
                                       * glibc's wide character representation */

          if ( w != 0 ) {
            if ( last_w == 0 ) printf( "\n\t\t" );
            putchar( w );
          }
          
          last_w = w;
        }
        printf( "\n" );
      }
    }
#endif /* ENABLE_EDITING */
  };


  class EMREOF : public METARECORD, ::EMREOF {
  public:
    EMREOF ( void )
    {
      emr.iType = EMR_EOF;
      emr.nSize = sizeof( ::EMREOF );
      nPalEntries = 0;
      offPalEntries = 0;
      nSizeLast = 0;
    }

    EMREOF ( DATASTREAM& ds )
    {
      ds >> emr >> nPalEntries >> offPalEntries >> nSizeLast;
    }

    bool serialize ( DATASTREAM ds )
    {
      ds << emr << nPalEntries << offPalEntries << nSizeLast;
      return true;
    }
    int size ( void ) const { return emr.nSize; }
    void execute ( METAFILEDEVICECONTEXT* /*source*/, HDC /*dc*/ ) const
    {
      // Actually handled by the destination device context.
    }
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      printf( "*EOF*\n" );
    }
#endif /* ENABLE_EDITING */
  };


  class EMRSETVIEWPORTORGEX : public METARECORD, ::EMRSETVIEWPORTORGEX {
  public:
    EMRSETVIEWPORTORGEX ( INT x, INT y )
    {
      emr.iType = EMR_SETVIEWPORTORGEX;
      emr.nSize = sizeof( ::EMRSETVIEWPORTORGEX );
      ptlOrigin.x = x;
      ptlOrigin.y = y;
    }
    EMRSETVIEWPORTORGEX ( DATASTREAM& ds )
    {
      ds >> emr >> ptlOrigin;
    }
    bool serialize ( DATASTREAM ds )
    {
      ds << emr << ptlOrigin;
      return true;
    }
    int size ( void ) const { return emr.nSize; }
    void execute ( METAFILEDEVICECONTEXT* /*source*/, HDC dc ) const
    {
      SetViewportOrgEx( dc, ptlOrigin.x, ptlOrigin.y, 0 );
    }
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      printf( "*SETVIEWPORTORGEX*\n" );
      edit_pointl( "ptlOrigin", ptlOrigin );
    }
#endif /* ENABLE_EDITING */
  };


  class EMRSETWINDOWORGEX : public METARECORD, ::EMRSETWINDOWORGEX {
  public:
    EMRSETWINDOWORGEX ( INT x, INT y )
    {
      emr.iType = EMR_SETWINDOWORGEX;
      emr.nSize = sizeof( ::EMRSETWINDOWORGEX );
      ptlOrigin.x = x;
      ptlOrigin.y = y;
    }
    EMRSETWINDOWORGEX ( DATASTREAM& ds )
    {
      ds >> emr >> ptlOrigin;
    }
    bool serialize ( DATASTREAM ds )
    {
      ds << emr << ptlOrigin;
      return true;
    }
    int size ( void ) const { return emr.nSize; }
    void execute ( METAFILEDEVICECONTEXT* /*source*/, HDC dc ) const
    {
      SetWindowOrgEx( dc, ptlOrigin.x, ptlOrigin.y, 0 );
    }
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      printf( "*SETWINDOWORGEX*\n" );
      edit_pointl( "ptlOrigin", ptlOrigin );
    }
#endif /* ENABLE_EDITING */
  };


  class EMRSETVIEWPORTEXTEX : public METARECORD, ::EMRSETVIEWPORTEXTEX {
  public:
    EMRSETVIEWPORTEXTEX ( INT cx, INT cy )
    {
      emr.iType = EMR_SETVIEWPORTEXTEX;
      emr.nSize = sizeof( ::EMRSETVIEWPORTEXTEX );
      szlExtent.cx = cx;
      szlExtent.cy = cy;
    }
    EMRSETVIEWPORTEXTEX ( DATASTREAM& ds )
    {
      ds >> emr >> szlExtent;
    }
    bool serialize ( DATASTREAM ds )
    {
      ds << emr << szlExtent;
      return true;
    }
    int size ( void ) const { return emr.nSize; }
    void execute ( METAFILEDEVICECONTEXT* /*source*/, HDC dc ) const
    {
      SetViewportExtEx( dc, szlExtent.cx, szlExtent.cy, 0 );
    }
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      printf( "*SETVIEWPORTEXTEX*\n" );
      edit_sizel( "szlExtent", szlExtent );
    }
#endif /* ENABLE_EDITING */
  };


  class EMRSCALEVIEWPORTEXTEX : public METARECORD, ::EMRSCALEVIEWPORTEXTEX {
  public:
    EMRSCALEVIEWPORTEXTEX ( LONG x_num, LONG x_den, LONG y_num, LONG y_den )
    {
      emr.iType = EMR_SCALEVIEWPORTEXTEX;
      emr.nSize = sizeof( ::EMRSCALEVIEWPORTEXTEX );
      xNum = x_num;
      xDenom = x_den;
      yNum = y_num;
      yDenom = y_den;
    }
    EMRSCALEVIEWPORTEXTEX ( DATASTREAM& ds )
    {
      ds >> emr >> xNum >> xDenom >> yNum >> yDenom;
    }
    bool serialize ( DATASTREAM ds )
    {
      ds << emr << xNum << xDenom << yNum << yDenom;
      return true;
    }
    int size ( void ) const { return emr.nSize; }
    void execute ( METAFILEDEVICECONTEXT* /*source*/, HDC dc ) const
    {
      ScaleViewportExtEx( dc, xNum, xDenom, yNum, yDenom, 0 );
    }
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      printf( "*SCALEVIEWPORTEXTEX*\n" );
      printf( "\txNum\t: %ld\n", xNum );
      printf( "\txDenom\t: %ld\n", xDenom );
      printf( "\tyNum\t: %ld\n", yNum );
      printf( "\tyDenom\t: %ld\n", yDenom );
    }
#endif /* ENABLE_EDITING */
  };


  class EMRSETWINDOWEXTEX : public METARECORD, ::EMRSETWINDOWEXTEX {
  public:
    EMRSETWINDOWEXTEX ( INT cx, INT cy )
    {
      emr.iType = EMR_SETWINDOWEXTEX;
      emr.nSize = sizeof( ::EMRSETWINDOWEXTEX );
      szlExtent.cx = cx;
      szlExtent.cy = cy;
    }
    EMRSETWINDOWEXTEX ( DATASTREAM& ds )
    {
      ds >> emr >> szlExtent;
    }
    bool serialize ( DATASTREAM ds )
    {
      ds << emr << szlExtent;
      return true;
    }
    int size ( void ) const { return emr.nSize; }
    void execute ( METAFILEDEVICECONTEXT* /*source*/, HDC dc ) const
    {
      SetWindowExtEx( dc, szlExtent.cx, szlExtent.cy, 0 );
    }
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      printf( "*SETWINDOWEXTEX*\n" );
      edit_sizel( "szlExtent", szlExtent );
    }
#endif /* ENABLE_EDITING */
  };


  class EMRSCALEWINDOWEXTEX : public METARECORD, ::EMRSCALEWINDOWEXTEX {
  public:
    EMRSCALEWINDOWEXTEX ( LONG x_num, LONG x_den, LONG y_num, LONG y_den )
    {
      emr.iType = EMR_SCALEWINDOWEXTEX;
      emr.nSize = sizeof( ::EMRSCALEWINDOWEXTEX );
      xNum = x_num;
      xDenom = x_den;
      yNum = y_num;
      yDenom = y_den;
    }
    EMRSCALEWINDOWEXTEX ( DATASTREAM& ds )
    {
      ds >> emr >> xNum >> xDenom >> yNum >> yDenom;
    }
    bool serialize ( DATASTREAM ds )
    {
      ds << emr << xNum << xDenom << yNum << yDenom;
      return true;
    }
    int size ( void ) const { return emr.nSize; }
    void execute ( METAFILEDEVICECONTEXT* /*source*/, HDC dc ) const
    {
      ScaleWindowExtEx( dc, xNum, xDenom, yNum, yDenom, 0 );
    }
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      printf( "*SCALEWINDOWEXTEX*\n" );
      printf( "\txNum\t: %ld\n", xNum );
      printf( "\txDenom\t: %ld\n", xDenom );
      printf( "\tyNum\t: %ld\n", yNum );
      printf( "\tyDenom\t: %ld\n", yDenom );
    }
#endif /* ENABLE_EDITING */
  };


  class EMRMODIFYWORLDTRANSFORM : public METARECORD, ::EMRMODIFYWORLDTRANSFORM {
  public:
    EMRMODIFYWORLDTRANSFORM ( const XFORM* transform, DWORD mode )
    {
      emr.iType = EMR_MODIFYWORLDTRANSFORM;
      emr.nSize = sizeof( ::EMRMODIFYWORLDTRANSFORM );
      xform = *transform;
      iMode = mode;
    }
    EMRMODIFYWORLDTRANSFORM ( DATASTREAM& ds )
    {
      ds >> emr >> xform >> iMode;
    }
    bool serialize ( DATASTREAM ds )
    {
      ds << emr << xform << iMode;
      return true;
    }
    int size ( void ) const { return emr.nSize; }
    void execute ( METAFILEDEVICECONTEXT* /*source*/, HDC dc ) const
    {
      ModifyWorldTransform( dc, &xform, iMode );
    }
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      printf( "*MODIFYWORLDTRANSFORM*\n" );
      edit_xform( "xform", xform );
      printf( "\tiMode\t\t: " );
      switch ( iMode ) {
      case MWT_IDENTITY: printf( "MWT_IDENTITY\n" ); break;
      case MWT_LEFTMULTIPLY: printf( "MWT_LEFTMULTIPLY\n" ); break;
      case MWT_RIGHTMULTIPLY: printf( "MWT_RIGHTMULTIPLY\n" ); break;
      default: printf( "unknown(%ld)\n", iMode );
      }
    }
#endif /* ENABLE_EDITING */
  };


  class EMRSETWORLDTRANSFORM : public METARECORD, ::EMRSETWORLDTRANSFORM {
  public:
    EMRSETWORLDTRANSFORM ( const XFORM* transform )
    {
      emr.iType = EMR_SETWORLDTRANSFORM;
      emr.nSize = sizeof( ::EMRSETWORLDTRANSFORM );
      xform = *transform;
    }
    EMRSETWORLDTRANSFORM ( DATASTREAM& ds )
    {
      ds >> emr >> xform;
    }
    bool serialize ( DATASTREAM ds )
    {
      ds << emr << xform;
      return true;
    }
    int size ( void ) const { return emr.nSize; }
    void execute ( METAFILEDEVICECONTEXT* /*source*/, HDC dc ) const
    {
      SetWorldTransform( dc, &xform );
    }
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      printf( "*SETWORLDTRANSFORM*\n" );
      edit_xform( "xform", xform );
    }
#endif /* ENABLE_EDITING */
  };


  class EMRSETTEXTALIGN : public METARECORD, ::EMRSETTEXTALIGN {
  public:
    EMRSETTEXTALIGN ( UINT mode )
    {
      emr.iType = EMR_SETTEXTALIGN;
      emr.nSize = sizeof( ::EMRSETTEXTALIGN );
      iMode = mode;
    }
    EMRSETTEXTALIGN ( DATASTREAM& ds )
    {
      ds >> emr >> iMode;
    }
    bool serialize ( DATASTREAM ds )
    {
      ds << emr << iMode;
      return true;
    }
    int size ( void ) const { return emr.nSize; }
    void execute ( METAFILEDEVICECONTEXT* /*source*/, HDC dc ) const
    {
      SetTextAlign( dc, iMode );
    }
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      unsigned int known_bits = TA_BASELINE+TA_CENTER+TA_UPDATECP+TA_RTLREADING;
      unsigned int unknown_bits = ~known_bits;

      printf( "*SETTEXTALIGN*\n" );
      printf( "\tiMode\t: " );
      if ( iMode & TA_UPDATECP )
        printf( "TA_UPDATECP" );
      else
        printf( "TA_NOUPDATECP" );
      if ( iMode & TA_CENTER )
        printf( " | TA_CENTER" );
      else if ( iMode & TA_RIGHT )
        printf( " | TA_RIGHT" );
      else
        printf( " | TA_LEFT" );
      if ( iMode & TA_BASELINE )
        printf( " | TA_BASELINE" );
      else if ( iMode & TA_BOTTOM )
        printf( " | TA_BOTTOM" );
      else
        printf( " | TA_TOP" );
      if ( iMode & TA_RTLREADING )
        printf( " | TA_RTLREADING" );
      if ( iMode & unknown_bits )
        printf( " | unknown bits(0x%lx)", iMode & unknown_bits );
      printf( "\n" );
    }
#endif /* ENABLE_EDITING */
  };


  class EMRSETTEXTCOLOR : public METARECORD, ::EMRSETTEXTCOLOR {
  public:
    EMRSETTEXTCOLOR ( COLORREF color )
    {
      emr.iType = EMR_SETTEXTCOLOR;
      emr.nSize = sizeof( ::EMRSETTEXTCOLOR );
      crColor = color;
    }
    EMRSETTEXTCOLOR ( DATASTREAM& ds )
    {
      ds >> emr >> crColor;
    }
    bool serialize ( DATASTREAM ds )
    {
      ds << emr << crColor;
      return true;
    }
    int size ( void ) const { return emr.nSize; }
    void execute ( METAFILEDEVICECONTEXT* /*source*/, HDC dc ) const
    {
      SetTextColor( dc, crColor );
    }
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      printf( "*SETTEXTCOLOR*\n" );
      edit_color( "crColor", crColor );
    }
#endif /* ENABLE_EDITING */
  };


  class EMRSETBKCOLOR : public METARECORD, ::EMRSETBKCOLOR {
  public:
    EMRSETBKCOLOR ( COLORREF color )
    {
      emr.iType = EMR_SETBKCOLOR;
      emr.nSize = sizeof( ::EMRSETBKCOLOR );
      crColor = color;
    }
    EMRSETBKCOLOR ( DATASTREAM& ds )
    {
      ds >> emr >> crColor;
    }
    bool serialize ( DATASTREAM ds )
    {
      ds << emr << crColor;
      return true;
    }
    int size ( void ) const { return emr.nSize; }
    void execute ( METAFILEDEVICECONTEXT* /*source*/, HDC dc ) const
    {
      SetBkColor( dc, crColor );
    }
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      printf( "*SETBKCOLOR*\n" );
      edit_color( "crColor", crColor );
    }
#endif /* ENABLE_EDITING */
  };


  class EMRSETBKMODE : public METARECORD, ::EMRSETBKMODE {
  public:
    EMRSETBKMODE ( DWORD mode )
    {
      emr.iType = EMR_SETBKMODE;
      emr.nSize = sizeof( ::EMRSETBKMODE );
      iMode = mode;
    }
    EMRSETBKMODE ( DATASTREAM& ds )
    {
      ds >> emr >> iMode;
    }
    bool serialize ( DATASTREAM ds )
    {
      ds << emr << iMode;
      return true;
    }
    int size ( void ) const { return emr.nSize; }
    void execute ( METAFILEDEVICECONTEXT* /*source*/, HDC dc ) const
    {
      SetBkMode( dc, iMode );
    }
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      printf( "*SETBKMODE*\n" );
      printf( "\tiMode\t: " );
      switch ( iMode ) {
      case TRANSPARENT: printf( "TRANSPARENT\n" ); break;
      case OPAQUE: printf( "OPAQUE\n" ); break;
      default: printf( "unknown(%ld)\n", iMode );
      }
    }
#endif /* ENABLE_EDITING */
  };


  class EMRSETPOLYFILLMODE : public METARECORD, ::EMRSETPOLYFILLMODE {
  public:
    EMRSETPOLYFILLMODE ( DWORD mode )
    {
      emr.iType = EMR_SETPOLYFILLMODE;
      emr.nSize = sizeof( ::EMRSETPOLYFILLMODE );
      iMode = mode;
    }
    EMRSETPOLYFILLMODE ( DATASTREAM& ds )
    {
      ds >> emr >> iMode;
    }
    bool serialize ( DATASTREAM ds )
    {
      ds << emr << iMode;
      return true;
    }
    int size ( void ) const { return emr.nSize; }
    void execute ( METAFILEDEVICECONTEXT* /*source*/, HDC dc ) const
    {
      SetPolyFillMode( dc, iMode );
    }
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      printf( "*SETPOLYFILLMODE*\n" );
      printf( "\tiMode: " );
      switch ( iMode ) {
      case ALTERNATE: printf( "ALTERNATE\n" ); break;
      case WINDING: printf( "WINDING\n" ); break;
      default: printf( "unknown(%ld)\n", iMode );
      }
    }
#endif /* ENABLE_EDITING */
  };


  class EMRSETMAPMODE : public METARECORD, ::EMRSETMAPMODE {
  public:
    EMRSETMAPMODE ( DWORD mode )
    {
      emr.iType = EMR_SETMAPMODE;
      emr.nSize = sizeof( ::EMRSETMAPMODE );
      iMode = mode;
    }
    EMRSETMAPMODE ( DATASTREAM& ds )
    {
      ds >> emr >> iMode;
    }
    bool serialize ( DATASTREAM ds )
    {
      ds << emr << iMode;
      return true;
    }
    int size ( void ) const { return emr.nSize; }
    void execute ( METAFILEDEVICECONTEXT* /*source*/, HDC dc ) const
    {
      SetMapMode( dc, iMode );
    }
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      printf( "*SETMAPMODE*\n" );
      printf( "\tiMode\t: " );
      switch ( iMode ) {
      case MM_TEXT: printf( "MM_TEXT\n" ); break;
      case MM_LOMETRIC: printf( "MM_LOMETRIC\n" ); break;
      case MM_HIMETRIC: printf( "MM_HIMETRIC\n" ); break;
      case MM_LOENGLISH: printf( "MM_LOENGLISH\n" ); break;
      case MM_HIENGLISH: printf( "MM_HIENGLISH\n" ); break;
      case MM_TWIPS: printf( "MM_TWIPS\n" ); break;
      case MM_ISOTROPIC: printf( "MM_ISOTROPIC\n" ); break;
      case MM_ANISOTROPIC: printf( "MM_ANISOTROPIC\n" ); break;
      default: printf( "unknown(%ld)\n", iMode );
      }
    }
#endif /* ENABLE_EDITING */
  };


  class EMRSELECTOBJECT : public METARECORD, ::EMRSELECTOBJECT {
  public:
    EMRSELECTOBJECT ( HGDIOBJ object )
    {
      emr.iType = EMR_SELECTOBJECT;
      emr.nSize = sizeof( ::EMRSELECTOBJECT );
      ihObject = object;
    }
    EMRSELECTOBJECT ( DATASTREAM& ds )
    {
      ds >> emr >> ihObject;
    }
    bool serialize ( DATASTREAM ds )
    {
      ds << emr << ihObject;
      return true;
    }
    int size ( void ) const { return emr.nSize; }
    void execute ( METAFILEDEVICECONTEXT* source, HDC dc ) const;
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      printf( "*SELECTOBJECT*\n" );
      printf( "\tihObject\t: 0x%lx\n", ihObject );
    }
#endif /* ENABLE_EDITING */
  };


  class EMRDELETEOBJECT : public METARECORD, ::EMRDELETEOBJECT {
  public:
    EMRDELETEOBJECT ( HGDIOBJ object )
    {
      emr.iType = EMR_DELETEOBJECT;
      emr.nSize = sizeof( ::EMRDELETEOBJECT );
      ihObject = object;
    }
    EMRDELETEOBJECT ( DATASTREAM& ds )
    {
      ds >> emr >> ihObject;
    }
    bool serialize ( DATASTREAM ds )
    {
      ds << emr << ihObject;
      return true;
    }
    int size ( void ) const { return emr.nSize; }
    void execute ( METAFILEDEVICECONTEXT* source, HDC dc ) const;
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      printf( "*DELETEOBJECT*\n" );
      printf( "\tihObject\t: 0x%lx\n", ihObject );
    }
#endif /* ENABLE_EDITING */
  };


  class EMRMOVETOEX : public METARECORD, ::EMRMOVETOEX {
  public:
    EMRMOVETOEX ( INT x, INT y )
    {
      emr.iType = EMR_MOVETOEX;
      emr.nSize = sizeof( ::EMRMOVETOEX );
      ptl.x = x;
      ptl.y = y;
    }
    EMRMOVETOEX ( DATASTREAM& ds )
    {
      ds >> emr >> ptl;
    }
    bool serialize ( DATASTREAM ds )
    {
      ds << emr << ptl;
      return true;
    }
    int size ( void ) const { return emr.nSize; }
    void execute ( METAFILEDEVICECONTEXT* /*source*/, HDC dc ) const
    {
      MoveToEx( dc,  ptl.x, ptl.y, 0 );
    }
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      printf( "*MOVETOEX*\n" );
      edit_pointl( "ptl", ptl );
    }
#endif /* ENABLE_EDITING */
  };


  class EMRLINETO : public METARECORD, ::EMRLINETO {
  public:
    EMRLINETO ( INT x, INT y )
    {
      emr.iType = EMR_LINETO;
      emr.nSize = sizeof( ::EMRLINETO );
      ptl.x = x;
      ptl.y = y;
    }
    EMRLINETO ( DATASTREAM& ds )
    {
      ds >> emr >> ptl;
    }
    bool serialize ( DATASTREAM ds )
    {
      ds << emr << ptl;
      return true;
    }
    int size ( void ) const { return emr.nSize; }
    void execute ( METAFILEDEVICECONTEXT* /*source*/, HDC dc ) const
    {
      LineTo( dc,  ptl.x, ptl.y );
    }
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      printf( "*LINETO*\n" );
      edit_pointl( "ptl", ptl );
    }
#endif /* ENABLE_EDITING */
  };


  class EMRARC : public METARECORD, ::EMRARC {
  public:
    EMRARC ( INT left, INT top, INT right, INT bottom, INT xstart,
             INT ystart, INT xend, INT yend )
    {
      emr.iType = EMR_ARC;
      emr.nSize = sizeof( ::EMRARC );
      rclBox.left = left;
      rclBox.right = right;
      rclBox.bottom = bottom;
      rclBox.top = top;
      ptlStart.x = xstart;
      ptlStart.y = ystart;
      ptlEnd.x = xend;
      ptlEnd.y = yend;
    }
    EMRARC ( DATASTREAM& ds )
    {
      ds >> emr >> rclBox >> ptlStart >> ptlEnd;
    }
    bool serialize ( DATASTREAM ds )
    {
      ds << emr << rclBox << ptlStart << ptlEnd;
      return true;
    }
    int size ( void ) const { return emr.nSize; }
    void execute ( METAFILEDEVICECONTEXT* /*source*/, HDC dc ) const
    {
      Arc( dc, rclBox.left, rclBox.top, rclBox.right, rclBox.bottom,
           ptlStart.x, ptlStart.y, ptlEnd.x, ptlEnd.y );
    }
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      printf( "*ARC*\n" );
      edit_rectl( "rclBox\t", rclBox );
      edit_pointl( "ptlStart", ptlStart );
      edit_pointl( "ptlEnd\t", ptlEnd );
    }
#endif /* ENABLE_EDITING */
  };


  class EMRARCTO : public METARECORD, ::EMRARCTO {
  public:
    EMRARCTO ( INT left, INT top, INT right, INT bottom, INT xstart,
             INT ystart, INT xend, INT yend )
    {
      emr.iType = EMR_ARCTO;
      emr.nSize = sizeof( ::EMRARCTO );
      rclBox.left = left;
      rclBox.right = right;
      rclBox.bottom = bottom;
      rclBox.top = top;
      ptlStart.x = xstart;
      ptlStart.y = ystart;
      ptlEnd.x = xend;
      ptlEnd.y = yend;
    }
    EMRARCTO ( DATASTREAM& ds )
    {
      ds >> emr >> rclBox >> ptlStart >> ptlEnd;
    }
    bool serialize ( DATASTREAM ds )
    {
      ds << emr << rclBox << ptlStart << ptlEnd;
      return true;
    }
    int size ( void ) const { return emr.nSize; }
    void execute ( METAFILEDEVICECONTEXT* /*source*/, HDC dc ) const
    {
      ArcTo( dc, rclBox.left, rclBox.top, rclBox.right, rclBox.bottom,
             ptlStart.x, ptlStart.y, ptlEnd.x, ptlEnd.y );
    }
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      printf( "*ARCTO*\n" );
      edit_rectl( "rclBox\t", rclBox );
      edit_pointl( "ptlStart", ptlStart );
      edit_pointl( "ptlEnd\t", ptlEnd );
    }
#endif /* ENABLE_EDITING */
  };


  class EMRRECTANGLE : public METARECORD, ::EMRRECTANGLE {
  public:
    EMRRECTANGLE ( INT left, INT top, INT right, INT bottom )
    {
      emr.iType = EMR_RECTANGLE;
      emr.nSize = sizeof( ::EMRRECTANGLE );
      rclBox.left = left;
      rclBox.right = right;
      rclBox.bottom = bottom;
      rclBox.top = top;
    }
    EMRRECTANGLE ( DATASTREAM& ds )
    {
      ds >> emr >> rclBox;
    }
    bool serialize ( DATASTREAM ds )
    {
      ds << emr << rclBox;
      return true;
    }
    int size ( void ) const { return emr.nSize; }
    void execute ( METAFILEDEVICECONTEXT* /*source*/, HDC dc ) const
    {
      Rectangle( dc, rclBox.left, rclBox.top, rclBox.right, rclBox.bottom );
    }
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      printf( "*RECTANGLE*\n" );
      edit_rectl( "rclBox", rclBox );
    }
#endif /* ENABLE_EDITING */
  };


  class EMRELLIPSE : public METARECORD, ::EMRELLIPSE {
  public:
    EMRELLIPSE ( INT left, INT top, INT right, INT bottom )
    {
      emr.iType = EMR_ELLIPSE;
      emr.nSize = sizeof( ::EMRELLIPSE );
      rclBox.left = left;
      rclBox.right = right;
      rclBox.bottom = bottom;
      rclBox.top = top;
    }
    EMRELLIPSE ( DATASTREAM& ds )
    {
      ds >> emr >> rclBox;
    }
    bool serialize ( DATASTREAM ds )
    {
      ds << emr << rclBox;
      return true;
    }
    int size ( void ) const { return emr.nSize; }
    void execute ( METAFILEDEVICECONTEXT* /*source*/, HDC dc ) const
    {
      Ellipse( dc, rclBox.left, rclBox.top, rclBox.right, rclBox.bottom );
    }
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      printf( "*ELLIPSE*\n" );
      edit_rectl( "rclBox", rclBox );
    }
#endif /* ENABLE_EDITING */
  };


  class EMRPOLYLINE : public METARECORD, ::EMRPOLYLINE {
    POINTL* lpoints;
  public:
    EMRPOLYLINE ( const RECTL* bounds, const POINT* points, INT n )
    {
      cptl = n;
      aptl[0].x = 0;            // Really unused
      aptl[0].y = 0;

      emr.iType = EMR_POLYLINE;
      // The (cptl - 1) below is to account for aptl, which isn't written out
      emr.nSize = sizeof( ::EMRPOLYLINE ) + sizeof( POINTL ) * ( cptl - 1);

      lpoints = new POINTL[cptl];

      for (int i=0; i<n; i++) {
        lpoints[i].x = points[i].x;
        lpoints[i].y = points[i].y;
      }

      rclBounds = *bounds;
    }
    ~EMRPOLYLINE ( )
    {
      if ( lpoints ) delete[] lpoints;
    }
    EMRPOLYLINE ( DATASTREAM& ds )
    {
      ds >> emr >> rclBounds >> cptl;

      lpoints = new POINTL[cptl];

      POINTLARRAY points( lpoints, cptl );

      ds >> points;
    }
    bool serialize ( DATASTREAM ds )
    {
      ds << emr << rclBounds << cptl << POINTLARRAY( lpoints, cptl );
      return true;
    }
    int size ( void ) const { return emr.nSize; }
    void execute ( METAFILEDEVICECONTEXT* /*source*/, HDC dc ) const
    {
      // According to the wine windef.h header, POINT and POINTL are equivalent
      Polyline( dc, (POINT*)lpoints, cptl );
    }
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      printf( "*POLYLINE*\n" );
      edit_rectl( "rclBounds", rclBounds );
#if 0
      printf( "\tcptl              : %ld\n", cptl );
      printf( "\taptl->\n" );
      for ( unsigned int i = 0; i < cptl; i++ )
        printf( "\t\t%ld, %ld\n", lpoints[i].x, lpoints[i].y );
#else
      edit_pointlarray( "\t", cptl, lpoints );
#endif
    }
#endif /* ENABLE_EDITING */
  };


  class EMRPOLYLINE16 : public METARECORD, ::EMRPOLYLINE16 {
    POINT16* lpoints;
  public:
    EMRPOLYLINE16 ( const RECTL* bounds, const POINT16* points, INT n )
    {
      cpts = n;
      apts[0].x = 0;            // Really unused
      apts[0].y = 0;

      emr.iType = EMR_POLYLINE16;
      // The (cptl - 1) below is to account for aptl, which isn't written out
      emr.nSize = sizeof( ::EMRPOLYLINE16 ) + sizeof( POINT16 ) * ( cpts - 1);

      lpoints = new POINT16[cpts];

      for (int i=0; i<n; i++) {
        lpoints[i].x = points[i].x;
        lpoints[i].y = points[i].y;
      }

      rclBounds = *bounds;
    }
    EMRPOLYLINE16 ( const RECTL* bounds, const POINT* points, INT n )
    {
      cpts = n;
      apts[0].x = 0;            // Really unused
      apts[0].y = 0;

      emr.iType = EMR_POLYLINE16;
      // The (cptl - 1) below is to account for aptl, which isn't written out
      emr.nSize = sizeof( ::EMRPOLYLINE16 ) + sizeof( POINT16 ) * ( cpts - 1);

      lpoints = new POINT16[cpts];

      for (int i=0; i<n; i++) {
        lpoints[i].x = points[i].x;
        lpoints[i].y = points[i].y;
      }

      rclBounds = *bounds;
    }
    ~EMRPOLYLINE16 ( )
    {
      if ( lpoints ) delete[] lpoints;
    }
    EMRPOLYLINE16 ( DATASTREAM& ds )
    {
      ds >> emr >> rclBounds >> cpts;

      lpoints = new POINT16[cpts];

      POINT16ARRAY points( lpoints, cpts );

      ds >> points;
    }
    bool serialize ( DATASTREAM ds )
    {
      ds << emr << rclBounds << cpts << POINT16ARRAY( lpoints, cpts );
      return true;
    }
    int size ( void ) const { return emr.nSize; }
    void execute ( METAFILEDEVICECONTEXT* /*source*/, HDC dc ) const
    {
      // According to the wine windef.h header, POINT and POINTL are equivalent
      Polyline16( dc, lpoints, cpts );
    }
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      printf( "*POLYLINE16*\n" );
      edit_rectl( "rclBounds", rclBounds );
      edit_point16array( "\t", cpts, lpoints );
    }
#endif /* ENABLE_EDITING */
  };


  class EMRPOLYGON : public METARECORD, ::EMRPOLYGON {
    POINTL* lpoints;
  public:
    EMRPOLYGON ( const RECTL* bounds, const POINT* points, INT n )
    {
      cptl = n;
      aptl[0].x = 0;            // Really unused
      aptl[0].y = 0;

      emr.iType = EMR_POLYGON;
      // The (cptl-1) below is to account for aptl, which isn't written out
      emr.nSize = sizeof( ::EMRPOLYGON ) + sizeof( POINTL ) * (cptl-1);

      lpoints = new POINTL[cptl];

      for (int i=0; i<n; i++) {
        lpoints[i].x = points[i].x;
        lpoints[i].y = points[i].y;
      }

      rclBounds = *bounds;
    }
    EMRPOLYGON ( DATASTREAM& ds )
    {
      ds >> emr >> rclBounds >> cptl;

      lpoints = new POINTL[cptl];

      POINTLARRAY points( lpoints, cptl );

      ds >> points;
    }
    ~EMRPOLYGON ( )
    {
      if ( lpoints ) delete[] lpoints;
    }
    bool serialize ( DATASTREAM ds )
    {
      ds << emr << rclBounds << cptl << POINTLARRAY( lpoints, cptl );
      return true;
    }
    int size ( void ) const { return emr.nSize; }
    void execute ( METAFILEDEVICECONTEXT* /*source*/, HDC dc ) const
    {
      // According to the wine windef.h header, POINT and POINTL are equivalent
      Polygon( dc, (POINT*)lpoints, cptl );
    }
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      printf( "*POLYGON*\n" );
      edit_rectl( "rclBounds", rclBounds );
#if 0
      printf( "\tcptl              : %ld\n", cptl );
      printf( "\taptl->\n" );
      for ( unsigned int i = 0; i < cptl; i++ )
        printf( "\t\t%ld, %ld\n", lpoints[i].x, lpoints[i].y );
#else
      edit_pointlarray( "\t", cptl, lpoints );
#endif
    }
#endif /* ENABLE_EDITING */
  };


  class EMRPOLYGON16 : public METARECORD, ::EMRPOLYGON16 {
    POINT16* lpoints;
  public:
    EMRPOLYGON16 ( const RECTL* bounds, const POINT* points, INT16 n )
    {
      cpts = n;
      apts[0].x = 0;            // Really unused
      apts[0].y = 0;

      emr.iType = EMR_POLYGON16;
      // The (cptl-1) below is to account for aptl, which isn't written out
      emr.nSize = sizeof( ::EMRPOLYGON16 ) + sizeof( POINT16 ) * (cpts-1);

      lpoints = new POINT16[cpts];

      for (int i=0; i<n; i++) {
        lpoints[i].x = points[i].x;
        lpoints[i].y = points[i].y;
      }

      rclBounds = *bounds;
    }
    EMRPOLYGON16 ( const RECTL* bounds, const POINT16* points, INT16 n )
    {
      cpts = n;
      apts[0].x = 0;            // Really unused
      apts[0].y = 0;

      emr.iType = EMR_POLYGON16;
      // The (cptl-1) below is to account for aptl, which isn't written out
      emr.nSize = sizeof( ::EMRPOLYGON16 ) + sizeof( POINT16 ) * (cpts-1);

      lpoints = new POINT16[cpts];

      for (int i=0; i<n; i++) {
        lpoints[i].x = points[i].x;
        lpoints[i].y = points[i].y;
      }

      rclBounds = *bounds;
    }
    EMRPOLYGON16 ( DATASTREAM& ds )
    {
      ds >> emr >> rclBounds >> cpts;

      lpoints = new POINT16[cpts];

      POINT16ARRAY points( lpoints, cpts );

      ds >> points;
    }
    ~EMRPOLYGON16 ( )
    {
      if ( lpoints ) delete[] lpoints;
    }
    bool serialize ( DATASTREAM ds )
    {
      ds << emr << rclBounds << cpts << POINT16ARRAY( lpoints, cpts );
      return true;
    }
    int size ( void ) const { return emr.nSize; }
    void execute ( METAFILEDEVICECONTEXT* /*source*/, HDC dc ) const
    {
      // According to the wine windef.h header, POINT and POINTL are equivalent
      Polygon16( dc, lpoints, cpts );
    }
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      printf( "*POLYGON16*\n" );
      edit_rectl( "rclBounds", rclBounds );
      edit_point16array( "\t", cpts, lpoints );
    }
#endif /* ENABLE_EDITING */
  };


  class EMRPOLYPOLYGON : public METARECORD, ::EMRPOLYPOLYGON {
    DWORD* lcounts;
    POINTL* lpoints;
  public:
    EMRPOLYPOLYGON ( const RECTL* bounds, const POINT* points, const INT* counts,
                     UINT polygons )
    {
      nPolys = polygons;
      // Count the number of points in points
      int n = 0;
      for ( unsigned int i = 0; i < nPolys; i++ )
        n += counts[i];

      cptl = n;
      aPolyCounts[0] = 0;       // Really unused
      aptl[0].x = 0;
      aptl[0].y = 0;

      emr.iType = EMR_POLYPOLYGON;
      // The (#-1)'s below are to account for aPolyCounts[0] and aptl[0], which
      // aren't directly written out
      emr.nSize = sizeof( ::EMRPOLYPOLYGON ) + sizeof( POINTL ) * (cptl-1)
        + sizeof( DWORD ) * (nPolys-1);

      lcounts = new DWORD[nPolys];

      for ( unsigned int i = 0; i < nPolys; i++ )
        lcounts[i] = counts[i];

      lpoints = new POINTL[cptl];

      for (int i=0; i<n; i++) {
        lpoints[i].x = points[i].x;
        lpoints[i].y = points[i].y;
      }

      rclBounds = *bounds;
    }
    ~EMRPOLYPOLYGON ( )
    {
      if ( lcounts ) delete[] lcounts;
      if ( lpoints ) delete[] lpoints;
    }
    EMRPOLYPOLYGON ( DATASTREAM& ds )
    {
      ds >> emr >> rclBounds >> nPolys >> cptl;

      lcounts = new DWORD[nPolys];

      DWORDARRAY counts( lcounts, nPolys );

      ds >> counts;

      lpoints = new POINTL[cptl];

      POINTLARRAY points( lpoints, cptl );

      ds >> points;
    }
    bool serialize ( DATASTREAM ds )
    {
      ds << emr << rclBounds << nPolys << cptl << DWORDARRAY( lcounts, nPolys )
         << POINTLARRAY( lpoints, cptl );
      return true;
    }
    int size ( void ) const { return emr.nSize; }
    void execute ( METAFILEDEVICECONTEXT* /*source*/, HDC dc ) const
    {
      // According to the wine windef.h header, POINT and POINTL are equivalent
      // (but DWORD and INT are not)
      INT* counts = new INT[nPolys];
      for ( unsigned int i = 0; i < nPolys; i++ )
        counts[i] = lcounts[i];

      PolyPolygon( dc, (POINT*)lpoints, counts, nPolys );

      delete[] counts;
    }
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      printf( "*POLYPOLYGON*\n" );
      edit_rectl( "rclBounds", rclBounds );
      printf( "\tnPolys\t\t: %ld\n", nPolys );
      printf( "\tcptl\t\t: %ld\n", cptl );
      printf( "\taPolyCounts\t: " );
      if ( nPolys > 0 )
        printf( "%ld\n", lcounts[0] );
      else
        puts( "" );
      for ( unsigned int i = 1; i < nPolys; i++ )
        printf( "\t\t\t  %ld\n", lcounts[i] );
      printf( "\tapts\t\t: " );
      if ( cptl > 0 )
        printf( "%ld, %ld\n", lpoints[0].x, lpoints[0].y );
      else
        puts( "" );
      for ( unsigned int i = 1; i < cptl; i++ )
        printf( "\t\t\t  %ld, %ld\n", lpoints[i].x, lpoints[i].y );
    }
#endif /* ENABLE_EDITING */
  };


  class EMRPOLYPOLYGON16 : public METARECORD, ::EMRPOLYPOLYGON16 {
    DWORD* lcounts;
    POINT16* lpoints;
  public:
    EMRPOLYPOLYGON16 ( const RECTL* bounds, const POINT* points,
                       const INT* counts, UINT polygons )
    {
      nPolys = polygons;
      // Count the number of points in points
      int n = 0;
      for ( unsigned int i = 0; i < nPolys; i++ )
        n += counts[i];

      cpts = n;
      aPolyCounts[0] = 0;       // Really unused
      apts[0].x = 0;
      apts[0].y = 0;

      emr.iType = EMR_POLYPOLYGON16;
      // The (#-1)'s below are to account for aPolyCounts[0] and aptl[0], which
      // aren't directly written out
      emr.nSize = sizeof( ::EMRPOLYPOLYGON16 ) + sizeof( POINT16 ) * (cpts-1)
        + sizeof( DWORD ) * (nPolys-1);

      lcounts = new DWORD[nPolys];

      for ( unsigned int i = 0; i < nPolys; i++ )
        lcounts[i] = counts[i];

      lpoints = new POINT16[cpts];

      for (int i=0; i<n; i++) {
        lpoints[i].x = points[i].x;
        lpoints[i].y = points[i].y;
      }

      rclBounds = *bounds;
    }
    EMRPOLYPOLYGON16 ( const RECTL* bounds, const POINT16* points,
                       const INT* counts, UINT16 polygons )
    {
      nPolys = polygons;
      // Count the number of points in points
      int n = 0;
      for ( unsigned int i = 0; i < nPolys; i++ )
        n += counts[i];

      cpts = n;
      aPolyCounts[0] = 0;       // Really unused
      apts[0].x = 0;
      apts[0].y = 0;

      emr.iType = EMR_POLYPOLYGON16;
      // The (#-1)'s below are to account for aPolyCounts[0] and aptl[0], which
      // aren't directly written out
      emr.nSize = sizeof( ::EMRPOLYPOLYGON16 ) + sizeof( POINT16 ) * (cpts-1)
        + sizeof( DWORD ) * (nPolys-1);

      lcounts = new DWORD[nPolys];

      for ( unsigned int i = 0; i < nPolys; i++ )
        lcounts[i] = counts[i];

      lpoints = new POINT16[cpts];

      for (int i=0; i<n; i++) {
        lpoints[i].x = points[i].x;
        lpoints[i].y = points[i].y;
      }

      rclBounds = *bounds;
    }
    ~EMRPOLYPOLYGON16 ( )
    {
      if ( lcounts ) delete[] lcounts;
      if ( lpoints ) delete[] lpoints;
    }
    EMRPOLYPOLYGON16 ( DATASTREAM& ds )
    {
      ds >> emr >> rclBounds >> nPolys >> cpts;

      lcounts = new DWORD[nPolys];

      DWORDARRAY counts( lcounts, nPolys );

      ds >> counts;

      lpoints = new POINT16[cpts];

      POINT16ARRAY points( lpoints, cpts );

      ds >> points;
    }
    bool serialize ( DATASTREAM ds )
    {
      ds << emr << rclBounds << nPolys << cpts << DWORDARRAY( lcounts, nPolys )
         << POINT16ARRAY( lpoints, cpts );
      return true;
    }
    int size ( void ) const { return emr.nSize; }
    void execute ( METAFILEDEVICECONTEXT* /*source*/, HDC dc ) const
    {
      // According to the wine windef.h header, POINT and POINTL are equivalent
      // (but DWORD and INT are not)
      INT* counts = new INT[nPolys];
      for ( unsigned int i = 0; i < nPolys; i++ )
        counts[i] = lcounts[i];

      PolyPolygon16( dc, lpoints, counts, nPolys );

      delete[] counts;
    }
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      printf( "*POLYPOLYGON16*\n" );
      edit_rectl( "rclBounds", rclBounds );
      printf( "\tnPolys\t\t: %ld\n", nPolys );
      printf( "\tcpts\t\t: %ld\n", cpts );
      printf( "\taPolyCounts\t: " );
      if ( nPolys > 0 )
        printf( "%ld\n", lcounts[0] );
      else
        puts( "" );
      for ( unsigned int i = 1; i < nPolys; i++ )
        printf( "\t\t\t  %ld\n", lcounts[i] );
      printf( "\tapts\t\t: " );
      if ( cpts > 0 )
        printf( "%d, %d\n", lpoints[0].x, lpoints[0].y );
      else
        puts( "" );
      for ( unsigned int i = 1; i < cpts; i++ )
        printf( "\t\t\t  %d, %d\n", lpoints[i].x, lpoints[i].y );
    }
#endif /* ENABLE_EDITING */
  };


  class EMRPOLYBEZIER : public METARECORD, ::EMRPOLYBEZIER {
    POINTL* lpoints;
  public:
    EMRPOLYBEZIER ( const RECTL* bounds, const POINT* points, INT n )
    {
      cptl = n;
      aptl[0].x = 0;            // Really unused
      aptl[0].y = 0;

      emr.iType = EMR_POLYBEZIER;
      // The (cptl-1) below is to account for aptl, which isn't written out
      emr.nSize = sizeof( ::EMRPOLYBEZIER ) + sizeof( POINTL ) * (cptl-1);

      lpoints = new POINTL[cptl];

      for (int i=0; i<n; i++) {
        lpoints[i].x = points[i].x;
        lpoints[i].y = points[i].y;
      }

      rclBounds = *bounds;
    }
    EMRPOLYBEZIER ( DATASTREAM& ds )
    {
      ds >> emr >> rclBounds >> cptl;

      lpoints = new POINTL[cptl];

      POINTLARRAY points( lpoints, cptl );

      ds >> points;
    }
    ~EMRPOLYBEZIER ( )
    {
      if ( lpoints ) delete[] lpoints;
    }
    bool serialize ( DATASTREAM ds )
    {
      ds << emr << rclBounds << cptl << POINTLARRAY( lpoints, cptl );
      return true;
    }
    int size ( void ) const { return emr.nSize; }
    void execute ( METAFILEDEVICECONTEXT* /*source*/, HDC dc ) const
    {
      // According to the wine windef.h header, POINT and POINTL are equivalent
      PolyBezier( dc, (POINT*)lpoints, cptl );
    }
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      printf( "*POLYBEZIER*\n" );
      edit_rectl( "rclBounds", rclBounds );
#if 0
      printf( "\tcptl              : %ld\n", cptl );
      printf( "\taptl->\n" );
      for ( unsigned int i = 0; i < cptl; i++ )
        printf( "\t\t%ld, %ld\n", lpoints[i].x, lpoints[i].y );
#else
      edit_pointlarray( "\t", cptl, lpoints );
#endif
    }
#endif /* ENABLE_EDITING */
  };


  class EMRPOLYBEZIER16 : public METARECORD, ::EMRPOLYBEZIER16 {
    POINT16* lpoints;
  public:
    EMRPOLYBEZIER16 ( const RECTL* bounds, const POINT16* points, INT n )
    {
      cpts = n;
      apts[0].x = 0;            // Really unused
      apts[0].y = 0;

      emr.iType = EMR_POLYBEZIER16;
      // The (cptl-1) below is to account for aptl, which isn't written out
      emr.nSize = sizeof( ::EMRPOLYBEZIER16 ) + sizeof( POINT16 ) * (cpts-1);

      lpoints = new POINT16[cpts];

      for (int i=0; i<n; i++) {
        lpoints[i].x = points[i].x;
        lpoints[i].y = points[i].y;
      }

      rclBounds = *bounds;
    }
    EMRPOLYBEZIER16 ( const RECTL* bounds, const POINT* points, INT n )
    {
      cpts = n;
      apts[0].x = 0;            // Really unused
      apts[0].y = 0;

      emr.iType = EMR_POLYBEZIER16;
      // The (cptl-1) below is to account for aptl, which isn't written out
      emr.nSize = sizeof( ::EMRPOLYBEZIER16 ) + sizeof( POINT16 ) * (cpts-1);

      lpoints = new POINT16[cpts];

      for (int i=0; i<n; i++) {
        lpoints[i].x = points[i].x;
        lpoints[i].y = points[i].y;
      }

      rclBounds = *bounds;
    }
    EMRPOLYBEZIER16 ( DATASTREAM& ds )
    {
      ds >> emr >> rclBounds >> cpts;

      lpoints = new POINT16[cpts];

      POINT16ARRAY points( lpoints, cpts );

      ds >> points;
    }
    ~EMRPOLYBEZIER16 ( )
    {
      if ( lpoints ) delete[] lpoints;
    }
    bool serialize ( DATASTREAM ds )
    {
      ds << emr << rclBounds << cpts << POINT16ARRAY( lpoints, cpts );
      return true;
    }
    int size ( void ) const { return emr.nSize; }
    void execute ( METAFILEDEVICECONTEXT* /*source*/, HDC dc ) const
    {
      // According to the wine windef.h header, POINT and POINTL are equivalent
      PolyBezier16( dc, lpoints, cpts );
    }
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      printf( "*POLYBEZIER16*\n" );
      edit_rectl( "rclBounds", rclBounds );
      edit_point16array( "\t", cpts, lpoints );
    }
#endif /* ENABLE_EDITING */
  };


  class EMRPOLYBEZIERTO : public METARECORD, ::EMRPOLYBEZIER {
    POINTL* lpoints;
  public:
    EMRPOLYBEZIERTO ( const RECTL* bounds, const POINT* points, INT n )
    {
      cptl = n;
      aptl[0].x = 0;            // Really unused
      aptl[0].y = 0;

      emr.iType = EMR_POLYBEZIERTO;
      // The (cptl-1) below is to account for aptl, which isn't written out
      emr.nSize = sizeof( ::EMRPOLYBEZIERTO ) + sizeof( POINTL ) * (cptl-1);

      lpoints = new POINTL[cptl];

      for (int i=0; i<n; i++) {
        lpoints[i].x = points[i].x;
        lpoints[i].y = points[i].y;
      }

      rclBounds = *bounds;
    }
    EMRPOLYBEZIERTO ( DATASTREAM& ds )
    {
      ds >> emr >> rclBounds >> cptl;

      lpoints = new POINTL[cptl];

      POINTLARRAY points( lpoints, cptl );

      ds >> points;
    }
    ~EMRPOLYBEZIERTO ( )
    {
      if ( lpoints ) delete[] lpoints;
    }
    bool serialize ( DATASTREAM ds )
    {
      ds << emr << rclBounds << cptl << POINTLARRAY( lpoints, cptl );
      return true;
    }
    int size ( void ) const { return emr.nSize; }
    void execute ( METAFILEDEVICECONTEXT* /*source*/, HDC dc ) const
    {
      // According to the wine windef.h header, POINT and POINTL are equivalent
      PolyBezierTo( dc, (POINT*)lpoints, cptl );
    }
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      printf( "*POLYBEZIERTO*\n" );
      edit_rectl( "rclBounds", rclBounds );
#if 0
      printf( "\tcptl              : %ld\n", cptl );
      printf( "\taptl->\n" );
      for ( unsigned int i = 0; i < cptl; i++ )
        printf( "\t\t%ld, %ld\n", lpoints[i].x, lpoints[i].y );
#else
      edit_pointlarray( "\t", cptl, lpoints );
#endif
    }
#endif /* ENABLE_EDITING */
  };


  class EMRPOLYBEZIERTO16 : public METARECORD, ::EMRPOLYBEZIER16 {
    POINT16* lpoints;
  public:
    EMRPOLYBEZIERTO16 ( const RECTL* bounds, const POINT16* points, INT n )
    {
      cpts = n;
      apts[0].x = 0;            // Really unused
      apts[0].y = 0;

      emr.iType = EMR_POLYBEZIERTO16;
      // The (cptl-1) below is to account for aptl, which isn't written out
      emr.nSize = sizeof( ::EMRPOLYBEZIERTO16 ) + sizeof( POINT16 ) * (cpts-1);

      lpoints = new POINT16[cpts];

      for (int i=0; i<n; i++) {
        lpoints[i].x = points[i].x;
        lpoints[i].y = points[i].y;
      }

      rclBounds = *bounds;
    }
    EMRPOLYBEZIERTO16 ( const RECTL* bounds, const POINT* points, INT n )
    {
      cpts = n;
      apts[0].x = 0;            // Really unused
      apts[0].y = 0;

      emr.iType = EMR_POLYBEZIERTO16;
      // The (cptl-1) below is to account for aptl, which isn't written out
      emr.nSize = sizeof( ::EMRPOLYBEZIERTO16 ) + sizeof( POINT16 ) * (cpts-1);

      lpoints = new POINT16[cpts];

      for (int i=0; i<n; i++) {
        lpoints[i].x = points[i].x;
        lpoints[i].y = points[i].y;
      }

      rclBounds = *bounds;
    }
    EMRPOLYBEZIERTO16 ( DATASTREAM& ds )
    {
      ds >> emr >> rclBounds >> cpts;

      lpoints = new POINT16[cpts];

      POINT16ARRAY points( lpoints, cpts );

      ds >> points;
    }
    ~EMRPOLYBEZIERTO16 ( )
    {
      if ( lpoints ) delete[] lpoints;
    }
    bool serialize ( DATASTREAM ds )
    {
      ds << emr << rclBounds << cpts << POINT16ARRAY( lpoints, cpts );
      return true;
    }
    int size ( void ) const { return emr.nSize; }
    void execute ( METAFILEDEVICECONTEXT* /*source*/, HDC dc ) const
    {
      // According to the wine windef.h header, POINT and POINTL are equivalent
      PolyBezierTo16( dc, lpoints, cpts );
    }
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      printf( "*POLYBEZIERTO16*\n" );
      edit_rectl( "rclBounds", rclBounds );
      edit_point16array( "\t", cpts, lpoints );
    }
#endif /* ENABLE_EDITING */
  };


  class EMRPOLYLINETO : public METARECORD, ::EMRPOLYLINETO {
    POINTL* lpoints;
  public:
    EMRPOLYLINETO ( const RECTL* bounds, const POINT* points, INT n )
    {
      cptl = n;
      aptl[0].x = 0;
      aptl[0].y = 0;

      emr.iType = EMR_POLYLINETO;
      // The (cptl-1) below is to account for aptl, which isn't written out
      emr.nSize = sizeof( ::EMRPOLYLINETO ) + sizeof( POINTL ) * (cptl-1);

      lpoints = new POINTL[cptl];

      for (int i=0; i<n; i++) {
        lpoints[i].x = points[i].x;
        lpoints[i].y = points[i].y;
      }

      rclBounds = *bounds;
    }
    EMRPOLYLINETO ( DATASTREAM& ds )
    {
      ds >> emr >> rclBounds >> cptl;

      lpoints = new POINTL[cptl];

      POINTLARRAY points( lpoints, cptl );

      ds >> points;
    }
    ~EMRPOLYLINETO ( )
    {
      if ( lpoints ) delete[] lpoints;
    }
    bool serialize ( DATASTREAM ds )
    {
      ds << emr << rclBounds << cptl << POINTLARRAY( lpoints, cptl );
      return true;
    }
    int size ( void ) const { return emr.nSize; }
    void execute ( METAFILEDEVICECONTEXT* /*source*/, HDC dc ) const
    {
      // According to the wine windef.h header, POINT and POINTL are equivalent
      PolylineTo( dc, (POINT*)lpoints, cptl );
    }
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      printf( "*POLYLINETO*\n" );
      edit_rectl( "rclBounds", rclBounds );
#if 0
      printf( "\tcptl              : %ld\n", cptl );
      printf( "\taptl->\n" );
      for ( unsigned int i = 0; i < cptl; i++ )
        printf( "\t\t%ld, %ld\n", lpoints[i].x, lpoints[i].y );
#else
      edit_pointlarray( "\t", cptl, lpoints );
#endif
    }
#endif /* ENABLE_EDITING */
  };


  class EMRPOLYLINETO16 : public METARECORD, ::EMRPOLYLINETO16 {
    POINT16* lpoints;
  public:
    EMRPOLYLINETO16 ( const RECTL* bounds, const POINT16* points, INT n )
    {
      cpts = n;
      apts[0].x = 0;
      apts[0].y = 0;

      emr.iType = EMR_POLYLINETO16;
      // The (cptl-1) below is to account for aptl, which isn't written out
      emr.nSize = sizeof( ::EMRPOLYLINETO16 ) + sizeof( POINT16 ) * (cpts-1);

      lpoints = new POINT16[cpts];

      for (int i=0; i<n; i++) {
        lpoints[i].x = points[i].x;
        lpoints[i].y = points[i].y;
      }

      rclBounds = *bounds;
    }
    EMRPOLYLINETO16 ( const RECTL* bounds, const POINT* points, INT n )
    {
      cpts = n;
      apts[0].x = 0;
      apts[0].y = 0;

      emr.iType = EMR_POLYLINETO16;
      // The (cptl-1) below is to account for aptl, which isn't written out
      emr.nSize = sizeof( ::EMRPOLYLINETO16 ) + sizeof( POINT16 ) * (cpts-1);

      lpoints = new POINT16[cpts];

      for (int i=0; i<n; i++) {
        lpoints[i].x = points[i].x;
        lpoints[i].y = points[i].y;
      }

      rclBounds = *bounds;
    }
    EMRPOLYLINETO16 ( DATASTREAM& ds )
    {
      ds >> emr >> rclBounds >> cpts;

      lpoints = new POINT16[cpts];

      POINT16ARRAY points( lpoints, cpts );

      ds >> points;
    }
    ~EMRPOLYLINETO16 ( )
    {
      if ( lpoints ) delete[] lpoints;
    }
    bool serialize ( DATASTREAM ds )
    {
      ds << emr << rclBounds << cpts << POINT16ARRAY( lpoints, cpts );
      return true;
    }
    int size ( void ) const { return emr.nSize; }
    void execute ( METAFILEDEVICECONTEXT* /*source*/, HDC dc ) const
    {
      // According to the wine windef.h header, POINT and POINTL are equivalent
      PolylineTo16( dc, lpoints, cpts );
    }
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      printf( "*POLYLINETO16*\n" );
      edit_rectl( "rclBounds", rclBounds );
      edit_point16array( "\t", cpts, lpoints );
    }
#endif /* ENABLE_EDITING */
  };


  class EMREXTTEXTOUTA : public METARECORD, ::EMREXTTEXTOUTA {
    PSTR string_a;
    int string_size;

    INT* dx_i;
  public:
    EMREXTTEXTOUTA ( const RECTL* bounds, DWORD graphicsMode, FLOAT xScale,
                     FLOAT yScale, const PEMRTEXT text, LPCSTR string,
                     const INT* dx )
    {
      emr.iType = EMR_EXTTEXTOUTA;
      emr.nSize = sizeof( ::EMREXTTEXTOUTA );

      rclBounds = *bounds;

      iGraphicsMode = graphicsMode;
      exScale = xScale;
      eyScale = yScale;

      emrtext = *text;

      string_size = ROUND_TO_LONG( emrtext.nChars );

      string_a = new CHAR[ string_size ];

      memset( string_a, 0, sizeof(CHAR) * string_size );

      for ( unsigned int i=0; i<emrtext.nChars; i++ )
        string_a[i] = *string++;

      emrtext.offString = emr.nSize;
      emr.nSize += string_size * sizeof(CHAR);

      if ( dx ) {

        dx_i = new INT[ emrtext.nChars ];

        for ( unsigned int i=0; i<emrtext.nChars; i++ )
          dx_i[i] = *dx++;

        emrtext.offDx = emr.nSize;
        emr.nSize += emrtext.nChars * sizeof(INT);
      }
      else {
        emrtext.offDx = 0;
        dx_i = 0;
      }
    }
    EMREXTTEXTOUTA ( DATASTREAM& ds )
    {
      ds >> emr >> rclBounds >> iGraphicsMode >> exScale >> eyScale >> emrtext;

      if ( emrtext.offString != 0 ) {
        string_size = ROUND_TO_LONG( emrtext.nChars );

        string_a = new CHAR[ string_size ];

        memset( string_a, 0, sizeof(CHAR) * string_size );

        CHARSTR string( string_a, string_size );

        ds >> string;
      }
      else
        string_a = 0;

      if ( emrtext.offDx ) {
        dx_i = new INT[ emrtext.nChars ];

        INTARRAY dx_is( dx_i, emrtext.nChars );

        ds >> dx_is;
      }
      else
        dx_i = 0;
    }
    ~EMREXTTEXTOUTA ( )
    {
      if ( string_a ) delete[] string_a;
      if ( dx_i ) delete[] dx_i;
    }
    bool serialize ( DATASTREAM ds )
    {
      ds << emr << rclBounds << iGraphicsMode << exScale << eyScale
         << emrtext << CHARSTR( string_a, string_size );
      if ( dx_i )
        ds << INTARRAY( dx_i, emrtext.nChars );
      return true;
    }
    int size ( void ) const { return emr.nSize; }
    void execute ( METAFILEDEVICECONTEXT* /*source*/, HDC dc ) const
    {
      RECT rect;
      rect.left = emrtext.rcl.left;
      rect.top = emrtext.rcl.top;
      rect.right = emrtext.rcl.right;
      rect.bottom = emrtext.rcl.bottom;

      ExtTextOutA( dc, emrtext.ptlReference.x, emrtext.ptlReference.y,
                   emrtext.fOptions, &rect, string_a, emrtext.nChars,
                   dx_i );
    }
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      printf( "*EXTTEXTOUTA*\n" );
      edit_rectl( "rclBounds", rclBounds );
      printf( "\tiGraphicsMode\t: " );
      switch ( iGraphicsMode ) {
      case GM_COMPATIBLE: printf( "GM_COMPATIBLE\n" ); break;
      case GM_ADVANCED: printf( "GM_ADVANCED\n" ); break;
      default: printf( "unknown(%ld)\n", iGraphicsMode );
      }
      printf( "\texScale\t\t: %f\n", exScale );
      printf( "\teyScale\t\t: %f\n", eyScale );
      printf( "\tptlReference\t: (%ld,%ld)\n", emrtext.ptlReference.x,
              emrtext.ptlReference.y );
      printf( "\tnChars\t\t: %ld\n", emrtext.nChars );
      printf( "\toffString\t: %ld\n", emrtext.offString );
      printf( "\tfOptions\t: " );
      if ( emrtext.fOptions == 0 )
        printf( "None" );
      else {
        if ( emrtext.fOptions & ETO_GRAYED ) {
          printf( "ETO_GRAYED" );
          if ( emrtext.fOptions & ~ETO_GRAYED )
            printf( " | " );
        }
        if ( emrtext.fOptions & ETO_OPAQUE ) {
          printf( "ETO_OPAQUE" );
          if ( emrtext.fOptions & ~(ETO_GRAYED | ETO_OPAQUE) )
            printf( " | " );
        }
        if ( emrtext.fOptions & ETO_CLIPPED ) {
          printf( "ETO_CLIPPED" );
          if ( emrtext.fOptions & ~(ETO_GRAYED | ETO_OPAQUE | ETO_CLIPPED ) )
            printf( " | " );
        }
        if ( emrtext.fOptions & ETO_GLYPH_INDEX ) {
          printf( "ETO_GLYPH_INDEX" );
          if ( emrtext.fOptions &
               ~(ETO_GRAYED | ETO_OPAQUE | ETO_CLIPPED | ETO_GLYPH_INDEX) )
            printf( " | " );
        }
        if ( emrtext.fOptions & ETO_RTLREADING ) {
          printf( "ETO_RTLREADING" );
          if ( emrtext.fOptions &
               ~(ETO_GRAYED | ETO_OPAQUE | ETO_CLIPPED | ETO_GLYPH_INDEX |
                 ETO_RTLREADING) )
            printf( " | " );
        }
        if ( emrtext.fOptions & ETO_IGNORELANGUAGE )
          printf( "ETO_IGNORELANGUAGE" );
      }
      printf( "\n" );
      edit_rectl( "rcl\t", emrtext.rcl );
      printf( "\toffDx\t\t: %ld\n", emrtext.offDx );
      printf( "\tString:\n\t\t%s\n",  string_a );

      if ( emrtext.offDx != 0 ) {
        printf( "\tOffsets:\n\t\t" );
        for ( unsigned int i = 0; i < emrtext.nChars; i++ )
          printf( "%d ", dx_i[i] );
        printf( "\n" );
      }
    }
#endif /* ENABLE_EDITING */
  };


  class EMRSETPIXELV : public METARECORD, ::EMRSETPIXELV {
  public:
    EMRSETPIXELV ( INT x, INT y, COLORREF color )
    {
      emr.iType = EMR_SETPIXELV;
      emr.nSize = sizeof( ::EMRSETPIXELV );
      ptlPixel.x = x;
      ptlPixel.y = y;
      crColor = color;
    }
    EMRSETPIXELV ( DATASTREAM& ds )
    {
      ds >> emr >> ptlPixel >> crColor;
    }
    bool serialize ( DATASTREAM ds )
    {
      ds << emr << ptlPixel << crColor;
      return true;
    }
    int size ( void ) const { return emr.nSize; }
    void execute ( METAFILEDEVICECONTEXT* /*source*/, HDC dc ) const
    {
      SetPixel( dc, ptlPixel.x, ptlPixel.y, crColor );
    }
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      printf( "*SETPIXELV*\n" );
      edit_pointl( "ptlPixel", ptlPixel );
      edit_color( "crColor\t", crColor );
    }
#endif /* ENABLE_EDITING */
  };

  class PEN;
  class EXTPEN;
  class BRUSH;
  class FONT;
  class PALETTE;


  class EMRCREATEPEN : public METARECORD, public ::EMRCREATEPEN
  {
  public:
    EMRCREATEPEN ( PEN* pen, HGDIOBJ handle );
    EMRCREATEPEN ( DATASTREAM& ds );
    bool serialize ( DATASTREAM ds )
    {
      ds << emr << ihPen << lopn;
      return true;
    }
    int size ( void ) const { return emr.nSize; }
    void execute ( METAFILEDEVICECONTEXT* source, HDC dc ) const;
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      printf( "*CREATEPEN*\n" );
      printf( "\tihPen\t\t: 0x%lx\n", ihPen );
      edit_pen_style( "lopn.lopnStyle", lopn.lopnStyle );
      printf( "\tlopn.lopnWidth\t: %ld, %ld\n", lopn.lopnWidth.x, lopn.lopnWidth.y );
      edit_color( "lopn.lopnColor", lopn.lopnColor );
    }
#endif /* ENABLE_EDITING */
  };


  class EMREXTCREATEPEN : public METARECORD, public ::EMREXTCREATEPEN
  {
  public:
    EMREXTCREATEPEN ( EXTPEN* pen, HGDIOBJ handle );
    EMREXTCREATEPEN ( DATASTREAM& ds );
    bool serialize ( DATASTREAM ds )
    {
      ds << emr << ihPen << offBmi << cbBmi << offBits << cbBits << elp;
      return true;
    }
    int size ( void ) const { return emr.nSize; }
    void execute ( METAFILEDEVICECONTEXT* source, HDC dc ) const;
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      printf( "*EXTCREATEPEN*\n" );
      printf( "\tihPen\t\t\t: 0x%lx\n", ihPen );
      printf( "\toffBmi\t\t\t: %ld\n",  offBmi );
      printf( "\tcbBmi\t\t\t: %ld\n", cbBmi );
      printf( "\toffBits\t\t\t: %ld\n", offBits );
      printf( "\tcbBits\t\t\t: %ld\n", cbBits );
      edit_pen_style( "elp.elpPenStyle\t", elp.elpPenStyle );
      printf( "\telp.elpWidth\t\t: %ld\n", elp.elpWidth );
      edit_brush_style( "elp.elpBrushStyle", elp.elpBrushStyle );
      edit_color( "elp.elpColor\t", elp.elpColor );
      edit_brush_hatch( "elp.elpHatch\t", elp.elpHatch );
      printf( "\telp.elpNumEntries\t: %ld\n", elp.elpNumEntries );
    }
#endif /* ENABLE_EDITING */
  };


  class EMRCREATEBRUSHINDIRECT : public METARECORD, public ::EMRCREATEBRUSHINDIRECT
  {
  public:
    EMRCREATEBRUSHINDIRECT ( BRUSH* brush, HGDIOBJ handle );
    EMRCREATEBRUSHINDIRECT ( DATASTREAM& ds );
    bool serialize ( DATASTREAM ds )
    {
      ds << emr << ihBrush << lb;
      return true;
    }
    int size ( void ) const { return emr.nSize; }
    void execute ( METAFILEDEVICECONTEXT* source, HDC dc ) const;
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      printf( "*CREATEBRUSHINDIRECT*\n" );
      printf( "\tihBrush\t\t: 0x%lx\n", ihBrush );
      edit_brush_style( "lb.lbStyle", lb.lbStyle );
      edit_color( "lb.lbColor", lb.lbColor );
      edit_brush_hatch( "lb.lbHatch", lb.lbHatch );
    }
#endif /* ENABLE_EDITING */
  };


  class EMREXTCREATEFONTINDIRECTW : public METARECORD, public ::EMREXTCREATEFONTINDIRECTW
  {
  public:
    EMREXTCREATEFONTINDIRECTW ( FONT* font, HGDIOBJ handle );
    EMREXTCREATEFONTINDIRECTW ( DATASTREAM& ds );
    bool serialize ( DATASTREAM ds )
    {
      // Since EMF records have to be multiples of 4 bytes, this
      // should perhaps be a general thing, but we know it's currently
      // only a problem for this structure.

      ds << emr << ihFont << elfw << PADDING( 2 );

      return true;
    }
    int size ( void ) const { return emr.nSize; }
    void execute ( METAFILEDEVICECONTEXT* source, HDC dc ) const;
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      printf( "*EXTCREATEFONTINDIRECTW*\n" );
      printf( "\tihFont\t\t\t: %ld\n", ihFont );
      printf( "\tlfHeight\t\t: %ld\n", elfw.elfLogFont.lfHeight );
      printf( "\tlfWidth\t\t\t: %ld\n", elfw.elfLogFont.lfWidth );
      printf( "\tlfEscapement\t\t: %ld\n", elfw.elfLogFont.lfEscapement );
      printf( "\tlfOrientation\t\t: %ld\n", elfw.elfLogFont.lfOrientation );
      printf( "\tlfWeight\t\t: " );
      switch ( elfw.elfLogFont.lfWeight ) {
      case FW_DONTCARE: printf( "FW_DONTCARE\n" ); break;
      case FW_THIN: printf( "FW_THIN\n" ); break;
      case FW_EXTRALIGHT: printf( "FW_EXTRALIGHT\n" ); break;
      case FW_LIGHT: printf( "FW_LIGHT\n" ); break;
      case FW_NORMAL: printf( "FW_NORMAL\n" ); break;
      case FW_MEDIUM: printf( "FW_MEDIUM\n" ); break;
      case FW_SEMIBOLD: printf( "FW_SEMIBOLD\n" ); break;
      case FW_BOLD: printf( "FW_BOLD\n" ); break;
      case FW_EXTRABOLD: printf( "FW_EXTRABOLD\n" ); break;
      case FW_BLACK: printf( "FW_BLACK\n" ); break;
      }
      printf( "\tlfItalic\t\t: %d\n", elfw.elfLogFont.lfItalic );
      printf( "\tlfUnderline\t\t: %d\n", elfw.elfLogFont.lfUnderline );
      printf( "\tlfStrikeOut\t\t: %d\n", elfw.elfLogFont.lfStrikeOut );
      printf( "\tlfCharSet\t\t: %d\n", elfw.elfLogFont.lfCharSet );
      printf( "\tlfOutPrecision\t\t: %d\n", elfw.elfLogFont.lfOutPrecision );
      printf( "\tlfClipPrecision\t\t: %d\n", elfw.elfLogFont.lfClipPrecision );
      printf( "\tlfQuality\t\t: %d\n", elfw.elfLogFont.lfQuality );
      printf( "\tlfPitchAndFamily\t: %d\n", elfw.elfLogFont.lfPitchAndFamily );
      int i = 0;
      printf( "\tlfFaceName\t\t: '" );
      while ( elfw.elfLogFont.lfFaceName[i] != 0 && i < LF_FACESIZE ) {
        putchar( elfw.elfLogFont.lfFaceName[i] );
        i++;
      }
      puts( "'" );

      i = 0;
      printf( "\telfFullName\t\t: '" );
      while ( elfw.elfFullName[i] != 0 && i < LF_FULLFACESIZE ) {
        putchar( elfw.elfFullName[i] );
        i++;
      }
      puts( "'" );

      i = 0;
      printf( "\telfStyle\t\t: '" );
      while ( elfw.elfStyle[i] != 0 && i < LF_FACESIZE ) {
        putchar( elfw.elfStyle[i] );
        i++;
      }
      puts( "'" );

      printf( "\telfVersion\t\t: %ld\n", elfw.elfVersion );
      printf( "\telfStyleSize\t\t: %ld\n", elfw.elfStyleSize );
      printf( "\telfMatch\t\t: %ld\n", elfw.elfMatch );
      printf( "\telfVendorId\t\t: '%s'\n", elfw.elfVendorId );
      printf( "\telfCulture\t\t: %ld\n", elfw.elfCulture );
      printf( "\telfPanose\t\t:\n" );
      printf( "\t\tbFamilyType\t\t: %d\n", elfw.elfPanose.bFamilyType );
      printf( "\t\tbSerifStyle\t\t: %d\n", elfw.elfPanose.bSerifStyle );
      printf( "\t\tbWeight\t\t\t: %d\n", elfw.elfPanose.bWeight );
      printf( "\t\tbProportion\t\t: %d\n", elfw.elfPanose.bProportion );
      printf( "\t\tbContrast\t\t: %d\n", elfw.elfPanose.bContrast );
      printf( "\t\tbStrokeVariation\t: %d\n", elfw.elfPanose.bStrokeVariation );
      printf( "\t\tbArmStyle\t\t: %d\n", elfw.elfPanose.bArmStyle );
      printf( "\t\tbLetterform\t\t: %d\n", elfw.elfPanose.bLetterform );
      printf( "\t\tbMidline\t\t: %d\n", elfw.elfPanose.bMidline );
      printf( "\t\tbXHeight\t\t: %d\n", elfw.elfPanose.bXHeight );
    }
#endif /* ENABLE_EDITING */
  };


  class EMRCREATEPALETTE : public METARECORD, public ::EMRCREATEPALETTE
  {
  public:
    EMRCREATEPALETTE ( PALETTE* palette, HGDIOBJ handle );
    EMRCREATEPALETTE ( DATASTREAM& ds );
    bool serialize ( DATASTREAM ds )
    {
      ds << emr << ihPal << lgpl;
      return true;
    }
    int size ( void ) const { return emr.nSize; }
    void execute ( METAFILEDEVICECONTEXT* source, HDC dc ) const;
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      printf( "*CREATEPALETTE* (not really handled by libEMF)\n" );
    }
#endif /* ENABLE_EDITING */
  };


  class EMRFILLPATH : public METARECORD, ::EMRFILLPATH {
  public:
    EMRFILLPATH ( const RECTL* bounds )
    {
      emr.iType = EMR_FILLPATH;
      emr.nSize = sizeof( ::EMRFILLPATH );
      rclBounds = *bounds;
    }
    EMRFILLPATH ( DATASTREAM& ds )
    {
      ds >> emr >> rclBounds;
    }
    bool serialize ( DATASTREAM ds )
    {
      ds << emr << rclBounds;
      return true;
    }
    int size ( void ) const { return emr.nSize; }
    void execute ( METAFILEDEVICECONTEXT* /*source*/, HDC dc ) const
    {
      FillPath( dc );
    }
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      printf( "*FILLPATH*\n" );
      edit_rectl( "rclBounds", rclBounds );
    }
#endif /* ENABLE_EDITING */
  };

  class EMRSTROKEPATH : public METARECORD, ::EMRSTROKEPATH {
  public:
    EMRSTROKEPATH ( const RECTL* bounds )
    {
      emr.iType = EMR_STROKEPATH;
      emr.nSize = sizeof( ::EMRSTROKEPATH );
      rclBounds = *bounds;
    }
    EMRSTROKEPATH ( DATASTREAM& ds )
    {
      ds >> emr >> rclBounds;
    }
    bool serialize ( DATASTREAM ds )
    {
      ds << emr << rclBounds;
      return true;
    }
    int size ( void ) const { return emr.nSize; }
    void execute ( METAFILEDEVICECONTEXT* /*source*/, HDC dc ) const
    {
      StrokePath( dc );
    }
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      printf( "*STROKEPATH*\n" );
      edit_rectl( "rclBounds", rclBounds );
    }
#endif /* ENABLE_EDITING */
  };

  class EMRBEGINPATH : public METARECORD, ::EMRBEGINPATH {
  public:
    EMRBEGINPATH ( void )
    {
      emr.iType = EMR_BEGINPATH;
      emr.nSize = sizeof( ::EMRBEGINPATH );
    }
    EMRBEGINPATH ( DATASTREAM& ds )
    {
      ds >> emr;
    }
    bool serialize ( DATASTREAM ds )
    {
      ds << emr;
      return true;
    }
    int size ( void ) const { return emr.nSize; }
    void execute ( METAFILEDEVICECONTEXT* /*source*/, HDC dc ) const
    {
      BeginPath( dc );
    }
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      printf( "*BEGINPATH*\n" );
    }
#endif /* ENABLE_EDITING */
  };

  class EMRENDPATH : public METARECORD, ::EMRENDPATH {
  public:
    EMRENDPATH ( void )
    {
      emr.iType = EMR_ENDPATH;
      emr.nSize = sizeof( ::EMRENDPATH );
    }
    EMRENDPATH ( DATASTREAM& ds )
    {
      ds >> emr;
    }
    bool serialize ( DATASTREAM ds )
    {
      ds << emr;
      return true;
    }
    int size ( void ) const { return emr.nSize; }
    void execute ( METAFILEDEVICECONTEXT* /*source*/, HDC dc ) const
    {
      EndPath( dc );
    }
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      printf( "*ENDPATH*\n" );
    }
#endif /* ENABLE_EDITING */
  };

  class EMRCLOSEFIGURE : public METARECORD, ::EMRCLOSEFIGURE {
  public:
    EMRCLOSEFIGURE ( void )
    {
      emr.iType = EMR_CLOSEFIGURE;
      emr.nSize = sizeof( ::EMRCLOSEFIGURE );
    }
    EMRCLOSEFIGURE ( DATASTREAM& ds )
    {
      ds >> emr;
    }
    bool serialize ( DATASTREAM ds )
    {
      ds << emr;
      return true;
    }
    int size ( void ) const { return emr.nSize; }
    void execute ( METAFILEDEVICECONTEXT* /*source*/, HDC dc ) const
    {
      CloseFigure( dc );
    }
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      printf( "*CLOSEFIGURE*\n" );
    }
#endif /* ENABLE_EDITING */
  };

  class EMRSAVEDC : public METARECORD, ::EMRSAVEDC {
  public:
    EMRSAVEDC ( void )
    {
      emr.iType = EMR_SAVEDC;
      emr.nSize = sizeof( ::EMRSAVEDC );
    }
    EMRSAVEDC ( DATASTREAM& ds )
    {
      ds >> emr;
    }
    bool serialize ( DATASTREAM ds )
    {
      ds << emr;
      return true;
    }
    int size ( void ) const { return emr.nSize; }
    void execute ( METAFILEDEVICECONTEXT* /*source*/, HDC dc ) const
    {
      SaveDC( dc );
    }
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      printf( "*SAVEDC*\n" );
    }
#endif /* ENABLE_EDITING */
  };

  class EMRRESTOREDC : public METARECORD, ::EMRRESTOREDC {
  public:
    EMRRESTOREDC ( INT n )
    {
      emr.iType = EMR_RESTOREDC;
      emr.nSize = sizeof( ::EMRRESTOREDC );
      iRelative = n;
    }
    EMRRESTOREDC ( DATASTREAM& ds )
    {
      ds >> emr >> iRelative;
    }
    bool serialize ( DATASTREAM ds )
    {
      ds << emr << iRelative;
      return true;
    }
    int size ( void ) const { return emr.nSize; }
    void execute ( METAFILEDEVICECONTEXT* /*source*/, HDC dc ) const
    {
      RestoreDC( dc, iRelative );
    }
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      printf( "*RESTOREDC*\n" );
      printf( "\tiRelative: %ld\n", iRelative );
    }
#endif /* ENABLE_EDITING */
  };

  class EMRSETMETARGN : public METARECORD, ::EMRSETMETARGN {
  public:
    EMRSETMETARGN ( void )
    {
      emr.iType = EMR_SETMETARGN;
      emr.nSize = sizeof( ::EMRSETMETARGN );
    }
    EMRSETMETARGN ( DATASTREAM& ds )
    {
      ds >> emr;
    }
    bool serialize ( DATASTREAM ds )
    {
      ds << emr;
      return true;
    }
    int size ( void ) const { return emr.nSize; }
    void execute ( METAFILEDEVICECONTEXT* /*source*/, HDC dc ) const
    {
      SetMetaRgn( dc );
    }
#ifdef ENABLE_EDITING

    void edit ( void ) const
    {
      printf( "*SETMETARGN*\n" );
    }
#endif /* ENABLE_EDITING */
  };


  class PEN : public GRAPHICSOBJECT, public LOGPEN {
  public:
    PEN ( const LOGPEN* lpen )
    {
      lopnStyle = lpen->lopnStyle;
      lopnWidth = lpen->lopnWidth;
      lopnColor = lpen->lopnColor;
    }
    OBJECTTYPE getType ( void ) const { return O_PEN; }
    METARECORD* newEMR ( HDC dc, HGDIOBJ emf_handle )
    {
      contexts[dc] = emf_handle;
      return new EMRCREATEPEN( this, emf_handle );
    }
  };


  class EXTPEN : public GRAPHICSOBJECT, public EXTLOGPEN {
  public:
    EXTPEN ( const EXTLOGPEN* lpen )
    {
      elpPenStyle = lpen->elpPenStyle;
      elpWidth = lpen->elpWidth;
      elpBrushStyle = lpen->elpBrushStyle;
      elpColor = lpen->elpColor;
      elpHatch = lpen->elpHatch;
      elpNumEntries = 0;
      elpStyleEntry[0] = 0;
    }
    OBJECTTYPE getType ( void ) const { return O_EXTPEN; }
    METARECORD* newEMR ( HDC dc, HGDIOBJ emf_handle )
    {
      contexts[dc] = emf_handle;
      return new EMREXTCREATEPEN( this, emf_handle );
    }
  };


  class BRUSH : public GRAPHICSOBJECT, public LOGBRUSH {
  public:
    BRUSH ( const LOGBRUSH* lbrush )
    {
      lbStyle = lbrush->lbStyle;
      lbColor = lbrush->lbColor;
      lbHatch = lbrush->lbHatch;
    }
    OBJECTTYPE getType ( void ) const { return O_BRUSH; }
    METARECORD* newEMR ( HDC dc, HGDIOBJ emf_handle )
    {
      contexts[dc] = emf_handle;
      return new EMRCREATEBRUSHINDIRECT( this, emf_handle );
    }
  };


  class FONT : public GRAPHICSOBJECT, public EXTLOGFONTW {
  public:
    FONT ( const LOGFONTW* lfont )
    {
      this->elfLogFont = *lfont;
      // There are a lot more entries in the EXTLOGFONTW structure than
      // the API has values for, so we invent them here
      memset( &elfFullName, 0, sizeof elfFullName );
      memset( &elfStyle, 0, sizeof elfStyle );
      elfVersion = ELF_VERSION;
      elfStyleSize = 0;
      elfMatch = 0;
      elfReserved = 0;
      memset( &elfVendorId, 0, sizeof elfVendorId );
      elfCulture = ELF_CULTURE_LATIN;
      memset( &elfPanose, 1, sizeof(PANOSE) );
    }
    OBJECTTYPE getType ( void ) const { return O_FONT; }
    METARECORD* newEMR ( HDC dc, HGDIOBJ emf_handle )
    {
      contexts[dc] = emf_handle;
      return new EMREXTCREATEFONTINDIRECTW( this, emf_handle );
    }
  };


  class PALETTE : public GRAPHICSOBJECT, public LOGPALETTE {
  public:
    PALETTE ( const LOGPALETTE* lpalette )
    {
      (void)lpalette;
      palVersion = 0;
      palNumEntries = 0;
      PALETTEENTRY zero_entry = { 0, 0, 0, 0 };
      palPalEntry[0] = zero_entry;
    }
    OBJECTTYPE getType ( void ) const { return O_PALETTE; }
    METARECORD* newEMR ( HDC dc, HGDIOBJ emf_handle )
    {
      contexts[dc] = emf_handle;
      return new EMRCREATEPALETTE( this, emf_handle );
    }
  };


  class METAFILEDEVICECONTEXT : public OBJECT {
    void init ( const RECT* size, LPCWSTR description_w ) {

      // Evidently, metafile handles are numbered from 1, so don't
      // ever use 0.

      handles.push_back( true );

      // Keep some of our graphics state in a header record

      header = new ENHMETAHEADER ( description_w );
      records.push_back( header );

      // Compute the size and position of the metafile on the "page"

      if ( size ) {
        update_frame = false;

        header->rclFrame.left = size->left;
        header->rclFrame.top = size->top;
        header->rclFrame.right = size->right;
        header->rclFrame.bottom = size->bottom;

        header->rclBounds.left =
          size->left * header->szlDevice.cx / ( header->szlMillimeters.cx * 100 );
        header->rclBounds.top =
          size->top * header->szlDevice.cy / ( header->szlMillimeters.cy * 100 );
        header->rclBounds.right =
          size->right * header->szlDevice.cx / ( header->szlMillimeters.cx * 100 );
        header->rclBounds.bottom =
          size->bottom * header->szlDevice.cy / ( header->szlMillimeters.cy * 100 );
      }
      else {
        update_frame = true;

        header->rclBounds.left = -10;
        header->rclBounds.top = -10;
        header->rclBounds.right = 10;
        header->rclBounds.bottom = 10;

        header->rclFrame.left = (LONG)floor( (float)header->rclBounds.left *
          header->szlMillimeters.cx * 100 / header->szlDevice.cx );
        header->rclFrame.top = (LONG)floor( (float)header->rclBounds.top *
          header->szlMillimeters.cy * 100 / header->szlDevice.cy );
        header->rclFrame.right = (LONG)ceil( (float)header->rclBounds.right *
          header->szlMillimeters.cx * 100 / header->szlDevice.cx );
        header->rclFrame.bottom = (LONG)ceil( (float)header->rclBounds.bottom *
          header->szlMillimeters.cy * 100 / header->szlDevice.cy );
      }

      // Some default graphics state (are they really, though?)

      SIZEL default_resolution = { RESOLUTION, RESOLUTION };
      resolution = default_resolution;
      SIZEL default_viewport_ext = { 1, 1 };
      viewport_ext = default_viewport_ext;
      POINT default_viewport_org = { 0, 0 };
      viewport_org = default_viewport_org;
      SIZEL default_window_ext = { 1, 1 };
      window_ext = default_window_ext;
      POINT default_window_org = { 0, 0 };
      window_org = default_window_org;

      min_device_point = viewport_org;
      max_device_point = viewport_org;

      pen = (PEN*)globalObjects.find( BLACK_PEN | ENHMETA_STOCK_OBJECT );
      brush = (BRUSH*)globalObjects.find( BLACK_BRUSH | ENHMETA_STOCK_OBJECT );
      font = (FONT*)globalObjects.find( DEVICE_DEFAULT_FONT | ENHMETA_STOCK_OBJECT);
      palette = (PALETTE*)globalObjects.find( DEFAULT_PALETTE|ENHMETA_STOCK_OBJECT);

      text_alignment = TA_BASELINE;
      text_color = RGB(0,0,0);
      bk_color = RGB(0xff,0xff,0xff);
      bk_mode = OPAQUE;
      polyfill_mode = ALTERNATE;
      map_mode = MM_TEXT;

      handle = globalObjects.add( this );
    }

  public:
    ::FILE* fp;
    DATASTREAM ds;
    ENHMETAHEADER* header;
    std::vector< EMF::METARECORD* > records;

    // Keep a small set of graphics state information
    SIZEL resolution;           
    SIZEL viewport_ext;         
    POINT viewport_org;         
    SIZEL window_ext;           
    POINT window_org;           
    bool update_frame;          
    POINT min_device_point;     
    POINT max_device_point;     
    POINT point;                
    PEN* pen;                   
    BRUSH* brush;               
    FONT* font;                 
    PALETTE* palette;           
    UINT text_alignment;        
    COLORREF text_color;        
    COLORREF bk_color;          
    INT bk_mode;                
    INT polyfill_mode;          
    INT map_mode;               

    std::vector< bool > handles;

    std::map< HGDIOBJ, HGDIOBJ > emf_handles;

      METAFILEDEVICECONTEXT ( FILE* fp_, const RECT* size,
                              LPCWSTR description_w )
        : fp(fp_), ds( fp_ )
    {
          init( size, description_w );
    }
    virtual ~METAFILEDEVICECONTEXT ( )
    {
      // Purge all the metarecords (if there are any) {this include the
      // header record, too}
      if ( records.size() > 0 )
        deleteMetafile();
    }
    OBJECTTYPE getType ( void ) const { return O_METAFILEDEVICECONTEXT; }
    DWORD nextHandle ( void )
    {
      for ( unsigned int i = 1; i < handles.size(); i++ ) {
        if ( !handles[i] ) {
          handles[i] = true;
          return i;
        }
      }
      handles.push_back( true );
      // Well, it appears that even StockObject handles count for something.
      // Not sure what the right value here is, then.
      header->nHandles = handles.size();
      return handles.size()-1;
    }
    void clearHandle ( DWORD handle )
    {
      handles[handle] = false;
    }
    void appendRecord ( METARECORD* record )
    {
      records.push_back( record );

      header->nBytes += record->size();
      header->nRecords++;
    }
    void appendHandle ( METARECORD* record )
    {
      records.push_back( record );

      header->nBytes += record->size();
      header->nRecords++;
    }
    void deleteMetafile ( void )
    {
      for ( std::vector<METARECORD*>::const_iterator r = records.begin();
            r != records.end();
            r++ ) {
        delete *r;
      }
      records.clear();
    }
    void mergePoint ( const LONG& x, const LONG& y )
    {
      POINT p;
      p.x = x;
      p.y = y;
      mergePoint( p );
    }
    void mergePoint( const POINT& p )
    {
      POINT device_point;

      // *** Note, it's possible for the global transformation matrix to
      // affect this too. ***

      device_point.x = (LONG)( (float)( p.x - window_org.x ) / window_ext.cx *
        viewport_ext.cx + viewport_org.x );

      device_point.y = (LONG)( (float)( p.y - window_org.y ) / window_ext.cy *
        viewport_ext.cy + viewport_org.y );

      // If the user didn't specify a bounding rectangle in the constructor,
      // compute one from this data, too.
      if ( device_point.x < min_device_point.x ) {
        min_device_point.x = device_point.x;
        if ( update_frame ) {
          header->rclBounds.left = min_device_point.x - 10;
          header->rclFrame.left = (LONG)floor( (float)header->rclBounds.left *
            header->szlMillimeters.cx * 100 / header->szlDevice.cx );
        }
      }
      else if ( device_point.x > max_device_point.x ) {
        max_device_point.x = device_point.x;
        if ( update_frame ) {
          header->rclBounds.right = max_device_point.x + 10;
          header->rclFrame.right = (LONG)ceil( (float)header->rclBounds.right *
            header->szlMillimeters.cx * 100 / header->szlDevice.cx );
        }
      }

      if ( device_point.y < min_device_point.y ) {
        min_device_point.y = device_point.y;
        if ( update_frame ) {
          header->rclBounds.top = min_device_point.y - 10;
          header->rclFrame.top = (LONG)floor( (float)header->rclBounds.top *
            header->szlMillimeters.cy * 100 / header->szlDevice.cy );
        }
      }
      else if ( device_point.y > max_device_point.y ) {
        max_device_point.y = device_point.y;
        if ( update_frame ) {
          header->rclBounds.bottom = max_device_point.y + 10;
          header->rclFrame.bottom = (LONG)ceil( (float)header->rclBounds.bottom *
            header->szlMillimeters.cy * 100 / header->szlDevice.cy );
        }
      }
    }
  };

} // close EMF namespace

#endif /* _LIBEMF_H */

---