Board.cpp

/* -*- mode: c++ -*- */
/*
 * \@copyright This File is part of the Board library which is
 * licensed under the terms of the GNU Lesser General Public Licence.
 * See the LICENCE file for further details.
 */


#include "Board.h"
#include "Board/Point.h"
#include "Board/Rect.h"
#include "Board/Shapes.h"
#include "Board/Tools.h"
#include "Board/PSFonts.h"
#include <fstream>
#include <iostream>
#include <iomanip>
#include <typeinfo>
#include <ctime>
#include <cstring>
#include <map>
#include <algorithm>
#include <cstdio>

#ifdef WITH_CAIRO
// cairo
#include <cairo.h>
#include <cairo-pdf.h>
#include <cairo-ps.h>
#include <cairo-svg.h>
// cairo
#endif


#if defined( WIN32 )
#define _USE_MATH_DEFINES
#include <math.h>
#else 
#include <cmath>
#endif //win32

#ifdef _MSC_VER
//#define NOMINMAX
//#include <windows.h>
//#ifdef M_PI
//#undef M_PI
//#endif
//C++ exception specification ignored except 
//to indicate a function is not __declspec(nothrow)
#pragma warning(disable : 4290)
#endif

#ifdef _MSC_VER
#if defined( max )
#undef max 
#define _HAS_MSVC_MAX_ true
#endif
#if defined( min )
#undef min 
#define _HAS_MSVC_MIN_ true
#endif
#endif


namespace {
  const float pageSizes[3][2] = { { 0.0f, 0.0f }, // BoundingBox
          { 210.0f, 297.0f },
          { 8.5f*25.4f, 11.0f*25.4f } };
  const float ppmm = 720.0f / 254.0f;
}

namespace LibBoard {

const double Board::Degree =  3.14159265358979323846 / 180.0;

Board::State::State()
{
  penColor = DGtal::Color::Black;
  fillColor =  DGtal::Color::None;
  lineWidth = 0.5;
  lineStyle = Shape::SolidStyle;
  lineCap = Shape::ButtCap;
  lineJoin = Shape::MiterJoin;
  font = Fonts::TimesRoman;
  fontSize = 11.0;
  unitFactor = 1.0;
}

Board::Board( const DGtal::Color & bgColor )
  : _backgroundColor( bgColor )
{
}

Board::Board( const Board & other )
  : ShapeList( other ),
    _state( other._state ),
    _backgroundColor( other._backgroundColor )
{
}

Board &
Board::operator=( const Board & other )
{
  free();
  if ( ! other._shapes.size() ) return (*this);  
  _shapes.resize( other._shapes.size(), 0 );
  std::vector<Shape*>::iterator t = _shapes.begin();
  std::vector<Shape*>::const_iterator i = other._shapes.begin();
  std::vector<Shape*>::const_iterator end = other._shapes.end();
  while ( i != end ) {
    *t = (*i)->clone();
    ++i; ++t;
  }
  return *this;
}

Board &
Board::operator<<( const Shape & shape )
{
  ShapeList::addShape( shape, _state.unitFactor );
  return *this;
}

Board &
Board::operator<<( Unit unit )
{
  setUnit( unit );
  return *this;
}

Board::~Board()
{

}

void
Board::clear( const DGtal::Color & color )
{
  ShapeList::clear();
  _backgroundColor = color;
}


Shape &
Board::rotate( double angle, const Point & aCenter )
{
  ShapeList::rotate( angle, aCenter );
  _clippingPath.rotate( angle, aCenter );
  return (*this);
}

Shape &
Board::rotate( double angle )
{
  ShapeList::rotate( angle );
  _clippingPath.rotate( angle, center() );
  return (*this);
}

Shape &
Board::translate( double dx, double dy )
{
  ShapeList::translate( dx, dy );
  _clippingPath.translate( dx, dy );
  return (*this);
}

Shape &
Board::scale( double sx, double sy )
{
  Point delta = _clippingPath.center() - center();
  delta.x *= sx;
  delta.y *= sy;
  _clippingPath.scale( sx, sy );
  ShapeList::scale( sx, sy );
  delta = ( center() + delta ) - _clippingPath.center();
  _clippingPath.translate( delta.x, delta.y );
  return (*this);
}

Shape &
Board::scale( double s )
{
  Point delta = _clippingPath.center() - center();
  delta *= s;
  _clippingPath.scale( s );
  ShapeList::scale( s );
  delta = ( center() + delta ) - _clippingPath.center();
  _clippingPath.translate( delta.x, delta.y );
  return (*this);
}

Board
Board::rotated( double angle, const Point & aCenter )
{
  return static_cast<const Board &>( Board( *this ).rotate( angle, aCenter ) );
}

Board
Board::rotated( double angle )
{
  return static_cast<const Board &>( Board( *this ).rotate( angle ) );
}

Board
Board::translated( double dx, double dy )
{
  return static_cast<const Board &>( Board( *this ).translate( dx, dy ) );
}

Board
Board::scaled( double sx, double sy )
{
  return static_cast<const Board &>( Board( *this ).scale( sx, sy ) );
}

Board
Board::scaled( double s )
{
  return static_cast<const Board &>( Board( *this ).scale( s ) );
}


void
Board::setUnit( Unit unit )
{
  switch ( unit ) {
  case UPoint:
    _state.unitFactor = 1.0;
    break;
  case UInche:
    _state.unitFactor = 25.4f * ppmm;
    break;
  case UCentimeter:
    _state.unitFactor = 10.0f * ppmm;
    break;
  case UMillimeter:
    _state.unitFactor = ppmm;
    break;
  }
}

void
Board::setUnit( double factor, Unit unit )
{
  switch ( unit ) {
  case UPoint:
    _state.unitFactor = factor;
    break;
  case UInche:
    _state.unitFactor = 720.0f * factor;
    break;
  case UCentimeter:
    _state.unitFactor = 10.0f * ppmm * factor;
    break;
  case UMillimeter:
    _state.unitFactor = ppmm * factor;
    break;
  }
}

Board &
Board::setPenColorRGBi( unsigned char red,
      unsigned char green,
      unsigned char blue, 
      unsigned char alpha )
{
  _state.penColor.setRGBi( red, green, blue, alpha );
  return *this;
}

Board &
Board::setPenColorRGBf(  float red,
       float green,
       float blue, 
       float alpha )
{
  _state.penColor.setRGBf( red, green, blue, alpha );
  return *this;
}

Board &
Board::setPenColor( const DGtal::Color & color )
{
  _state.penColor = color;
  return *this;
}

Board &
Board::setFillColorRGBi( unsigned char red,
       unsigned char green,
       unsigned char blue,
       unsigned char alpha )
{
  _state.fillColor.setRGBi( red, green, blue, alpha );
  return *this;
}

Board &
Board::setFillColorRGBf( float red, float green, float blue, float alpha )
{
  _state.fillColor.setRGBf( red, green, blue, alpha );
  return *this;
}

Board &
Board::setFillColor( const DGtal::Color & color )
{
  _state.fillColor = color;
  return *this;
}

Board &
Board::setLineWidth( double width )
{
  _state.lineWidth = width;
  return *this;
}

Board &
Board::setFont( const Fonts::Font font, double fontSize )
{
  _state.font = font;
  _state.fontSize = fontSize;
  return *this;
}

Board &
Board::setFontSize( double fontSize )
{
  _state.fontSize = fontSize;
  return *this;
}

void
Board::backgroundColor( const DGtal::Color & color )
{
  _backgroundColor = color;
}

void
Board::drawDot( double x, double y, int depthValue )
{  
  if ( depthValue != -1 ) 
    _shapes.push_back( new Dot( _state.unit(x), _state.unit(y),
        _state.penColor, _state.lineWidth, depthValue ) );
  else
    _shapes.push_back( new Dot( _state.unit(x), _state.unit(y),
        _state.penColor, _state.lineWidth, _nextDepth-- ) );
}

void
Board::drawLine( double x1, double y1, double x2, double y2, 
     int depthValue /* = -1 */  )
{
  if ( depthValue != -1 ) 
    _shapes.push_back( new Line( _state.unit(x1), _state.unit(y1),
         _state.unit(x2), _state.unit(y2),
         _state.penColor, _state.lineWidth,
         _state.lineStyle, _state.lineCap, _state.lineJoin, depthValue ) );
  else
    _shapes.push_back( new Line( _state.unit(x1), _state.unit(y1),
         _state.unit(x2), _state.unit(y2),
         _state.penColor, _state.lineWidth,
         _state.lineStyle, _state.lineCap, _state.lineJoin, _nextDepth-- ) );
}

void
Board::drawArrow( double x1, double y1, double x2, double y2, 
      bool filledArrow /* = false */,
      int depthValue /* = -1 */  )
{
  if ( depthValue != -1 )
    _shapes.push_back( new Arrow( _state.unit(x1), _state.unit(y1),
          _state.unit(x2), _state.unit(y2),
          _state.penColor, filledArrow ? _state.penColor : DGtal::Color::None,
          _state.lineWidth, _state.lineStyle, _state.lineCap, _state.lineJoin, depthValue ) );
  else
    _shapes.push_back( new Arrow( _state.unit(x1), _state.unit(y1),
          _state.unit(x2), _state.unit(y2),
          _state.penColor, filledArrow ? _state.penColor : DGtal::Color::None,
          _state.lineWidth, _state.lineStyle, _state.lineCap, _state.lineJoin, _nextDepth-- ) );
}

void
Board::drawRectangle( double x, double y, 
          double width, double height,
          int depthValue /* = -1 */ )
{
  int d = (depthValue != -1) ? depthValue : _nextDepth--;
  _shapes.push_back( new Rectangle( _state.unit(x), _state.unit(y), _state.unit(width), _state.unit(height), 
            _state.penColor, _state.fillColor,
            _state.lineWidth, _state.lineStyle, _state.lineCap, _state.lineJoin, d ) );
}

void
Board::drawImage(std::string filename, double x, double y, 
     double width, double height,
     int depthValue, double alpha /* = -1 */ )
{
  int d = (depthValue != -1) ? depthValue : _nextDepth--;
  _shapes.push_back( new Image( _state.unit(x), _state.unit(y), _state.unit(width), _state.unit(height), 
        filename, d, alpha ) );
}


void
Board::fillRectangle( double x, double y,
          double width, double height,
          int depthValue /* = -1 */ )
{
  int d = (depthValue != -1) ? depthValue : _nextDepth--;
  _shapes.push_back( new Rectangle( _state.unit(x), _state.unit(y), _state.unit(width), _state.unit(height),
            DGtal::Color::None, _state.penColor,
            0.0f, _state.lineStyle, _state.lineCap, _state.lineJoin,
            d ) );
}

void
Board::drawCircle( double x, double y, double radius,
       int depthValue /* = -1 */  )
{
  int d = (depthValue != -1) ? depthValue : _nextDepth--;
  _shapes.push_back( new Circle( _state.unit(x), _state.unit(y), _state.unit(radius), 
         _state.penColor, _state.fillColor,
         _state.lineWidth, _state.lineStyle, d ) );
}

void 
Board::drawArc(double x, double y, double radius, double angle1, double angle2, 
               bool neg, int depthValue /*= -1*/ ){
  int d = (depthValue != -1) ? depthValue : _nextDepth--;
  _shapes.push_back( new Arc( _state.unit(x), _state.unit(y), _state.unit(radius), 
                              angle1, angle2, neg,_state.penColor,
                              DGtal::Color::None, _state.lineWidth, _state.lineStyle, d ) );
}
    

void
Board::fillCircle( double x, double y,
       double radius,
       int depthValue /* = -1 */ )
{
  int d = (depthValue != -1) ? depthValue : _nextDepth--;
  _shapes.push_back( new Circle( _state.unit(x), _state.unit(y), _state.unit(radius), 
         DGtal::Color::None, _state.penColor,
         0.0f, _state.lineStyle, d ) );
}

void
Board::drawEllipse( double x, double y,
        double xRadius, double yRadius,
        int depthValue /* = -1 */  )
{
  int d = (depthValue != -1) ? depthValue : _nextDepth--;
  _shapes.push_back( new Ellipse( _state.unit(x), _state.unit(y),
          _state.unit(xRadius), _state.unit(yRadius),
          _state.penColor,
          _state.fillColor,
          _state.lineWidth,
          _state.lineStyle,
          d ) );
}

void
Board::fillEllipse( double x, double y, 
        double xRadius, double yRadius,
        int depthValue /* = -1 */ )
{
  int d = depthValue ? depthValue : _nextDepth--;
  _shapes.push_back( new Ellipse( _state.unit(x), _state.unit(y), _state.unit(xRadius), _state.unit(yRadius),
          DGtal::Color::None,
          _state.penColor,
          0.0f, 
          _state.lineStyle,
          d ) );
}

void
Board::drawPolyline( const std::vector<Point> & points,
         int depthValue /* = -1 */ )
{
  int d = (depthValue != -1) ? depthValue : _nextDepth--;  
  std::vector<Point> v = points;
  std::vector<Point>::iterator it = v.begin();
  std::vector<Point>::iterator end = v.end();
  while ( it != end ) {
    (*it) = _state.unit( *it );
    ++it;
  }
  _shapes.push_back( new Polyline( v, false, _state.penColor, _state.fillColor,
           _state.lineWidth,
           _state.lineStyle,
           _state.lineCap,
           _state.lineJoin,
           d ) );
}

void
Board::drawClosedPolyline( const std::vector<Point> & points,
         int depthValue /* = -1 */ )
{
  int d = (depthValue != -1) ? depthValue : _nextDepth--;
  std::vector<Point> v = points;
  std::vector<Point>::iterator it = v.begin();
  std::vector<Point>::iterator end = v.end();
  while ( it != end ) {
    (*it) = _state.unit( *it );
    ++it;
  }
  _shapes.push_back( new Polyline( v, true, _state.penColor, _state.fillColor,
           _state.lineWidth,
           _state.lineStyle,
           _state.lineCap,
           _state.lineJoin,
           d ) );
}

void
Board::fillPolyline( const std::vector<Point> & points,
         int depthValue /* = -1 */ )
{
  int d = (depthValue != -1) ? depthValue : _nextDepth--;
  std::vector<Point> v = points;
  std::vector<Point>::iterator it = v.begin();
  std::vector<Point>::iterator end = v.end();
  while ( it != end ) {
    (*it) = _state.unit( *it );
    ++it;
  }
  _shapes.push_back( new Polyline( v, true, DGtal::Color::None, _state.penColor,
           0.0f,
           _state.lineStyle,
           _state.lineCap,
           _state.lineJoin,
           d ) );
}

void
Board::drawTriangle( double x1, double y1, 
         double x2, double y2, 
         double x3, double y3, 
         int depthValue /* = -1 */ )
{
  int d = (depthValue != -1) ? depthValue : _nextDepth--;
  std::vector<Point> points;
  points.push_back( Point( _state.unit(x1), _state.unit(y1) ) );
  points.push_back( Point( _state.unit(x2), _state.unit(y2) ) );
  points.push_back( Point( _state.unit(x3), _state.unit(y3) ) );
  _shapes.push_back( new Polyline( points, true, _state.penColor, _state.fillColor,
           _state.lineWidth,
           _state.lineStyle,
           _state.lineCap,
           _state.lineJoin,
           d ) );
}

void
Board::drawTriangle( const Point & p1,
         const Point & p2, 
         const Point & p3, 
         int depthValue /* = -1 */ )
{
  int d = (depthValue != -1) ? depthValue : _nextDepth--;
  std::vector<Point> points;
  points.push_back( Point( _state.unit(p1.x), _state.unit(p1.y) ) );
  points.push_back( Point( _state.unit(p2.x), _state.unit(p2.y) ) );
  points.push_back( Point( _state.unit(p3.x), _state.unit(p3.y) ) );
  _shapes.push_back( new Polyline( points, true, _state.penColor, _state.fillColor,
           _state.lineWidth,
           _state.lineStyle,
           _state.lineCap,
           _state.lineJoin,
           d ) );  
}

void
Board::fillTriangle( double x1, double y1, 
         double x2, double y2, 
         double x3, double y3, 
         int depthValue /* = -1 */ )
{
  int d = (depthValue != -1) ? depthValue : _nextDepth--;
  std::vector<Point> points;
  points.push_back( Point( _state.unit(x1), _state.unit(y1) ) );
  points.push_back( Point( _state.unit(x2), _state.unit(y2) ) );
  points.push_back( Point( _state.unit(x3), _state.unit(y3) ) );
  _shapes.push_back( new Polyline( points, true, DGtal::Color::None, _state.penColor,
           0.0f,
           _state.lineStyle,
           _state.lineCap,
           _state.lineJoin,
           d ) );
}

void
Board::fillTriangle( const Point & p1,
         const Point & p2, 
         const Point & p3, 
         int depthValue /* = -1 */ )
{
  int d = (depthValue != -1) ? depthValue : _nextDepth--;
  std::vector<Point> points;
  points.push_back( Point( _state.unit(p1.x), _state.unit(p1.y) ) );
  points.push_back( Point( _state.unit(p2.x), _state.unit(p2.y) ) );
  points.push_back( Point( _state.unit(p3.x), _state.unit(p3.y) ) );
  _shapes.push_back( new Polyline( points, true, DGtal::Color::None, _state.penColor,
           0.0f,
           _state.lineStyle,
           _state.lineCap,
           _state.lineJoin,
           d ) );  
}

void
Board::fillGouraudTriangle( const Point & p1,
          const DGtal::Color & color1,
          const Point & p2,
          const DGtal::Color & color2,
          const Point & p3,
          const DGtal::Color & color3,
          unsigned char divisions,
          int depthValue /* = -1 */ )
{
  int d = (depthValue != -1) ? depthValue : _nextDepth--;
  _shapes.push_back( new GouraudTriangle( Point( _state.unit(p1.x), _state.unit(p1.y) ), color1,
            Point( _state.unit(p2.x), _state.unit(p2.y) ), color2,
            Point( _state.unit(p3.x), _state.unit(p3.y) ), color3,
            divisions, d ) );
}

void
Board::fillGouraudTriangle( const Point & p1,
          const float brightness1,
          const Point & p2,
          const float brightness2,
          const Point & p3,
          const float brightness3,
          unsigned char divisions,
          int depthValue /* = -1 */ )
{
  DGtal::Color color1( _state.penColor );
  DGtal::Color color2( _state.penColor );
  DGtal::Color color3( _state.penColor );
  color1.red( static_cast<unsigned char>( std::min( 255.0f, color1.red() * brightness1 ) ) );
  color1.green( static_cast<unsigned char>( std::min( 255.0f, color1.green() * brightness1 ) ) );
  color1.blue( static_cast<unsigned char>( std::min( 255.0f, color1.blue() * brightness1 ) ) );
  color2.red( static_cast<unsigned char>( std::min( 255.0f, color2.red() * brightness2 ) ) );
  color2.green( static_cast<unsigned char>( std::min( 255.0f, color2.green() * brightness2 ) ) );
  color2.blue( static_cast<unsigned char>( std::min( 255.0f, color2.blue() * brightness2 ) ) );
  color3.red( static_cast<unsigned char>( std::min( 255.0f, color3.red() * brightness3 ) ) );
  color3.green( static_cast<unsigned char>( std::min( 255.0f, color3.green() * brightness3 ) ) );
  color3.blue( static_cast<unsigned char>( std::min( 255.0f, color3.blue() * brightness3 ) ) );
  fillGouraudTriangle( Point( _state.unit(p1.x), _state.unit(p1.y) ), color1,
           Point( _state.unit(p2.x), _state.unit(p2.y) ), color2,
           Point( _state.unit(p3.x), _state.unit(p3.y) ), color3,
           divisions,
           depthValue );
}

void
Board::drawText( double x, double y, const char * text,
     int depthValue /* = -1 */ )
{
  int d = (depthValue != -1) ? depthValue : _nextDepth--;
  _shapes.push_back( new Text( _state.unit(x), _state.unit(y), text,
             _state.font, _state.fontSize, _state.penColor, d ) );
}

void
Board::drawText( double x, double y, const std::string & str, int depthValue /* = -1 */ )
{
  int d = (depthValue != -1) ? depthValue : _nextDepth--;
  _shapes.push_back( new Text( _state.unit(x), _state.unit(y), str,
             _state.font, _state.fontSize, _state.penColor, d ) );
}

void
Board::drawBoundingBox( int depthValue /* = -1 */ )
{
  int d = (depthValue != -1) ? depthValue : _nextDepth--;
  Rect box = boundingBox();
  _shapes.push_back( new Rectangle( _state.unit(box.left),
            _state.unit(box.top),
            _state.unit(box.width),
            _state.unit(box.height),
            _state.penColor,
            _state.fillColor,
            _state.lineWidth,
            _state.lineStyle,
            _state.lineCap,
            _state.lineJoin,
            d ) );
}

void
Board::setClippingRectangle( double xLeft, double yTop, 
           double rectWidth, double rectHeight )
{
  _clippingPath.clear();
  _clippingPath << _state.unit( Point( xLeft, yTop ) );
  _clippingPath << _state.unit( Point( xLeft + rectWidth, yTop ) );
  _clippingPath << _state.unit( Point( xLeft + rectWidth, yTop - rectHeight) );
  _clippingPath << _state.unit( Point( xLeft , yTop - rectHeight ) );
}

void
Board::setClippingPath(  const std::vector<Point> & points  )
{
  _clippingPath.clear();
  std::vector<Point>::const_iterator it = points.begin();
  std::vector<Point>::const_iterator end = points.end();
  while ( it != end ) {
    _clippingPath << _state.unit( *it );
    ++it;
  }
}

void
Board::setClippingPath(  const Path & path  )
{
  _clippingPath = path;
  _clippingPath.setClosed( true );
  if ( _clippingPath.size() > 1 ) {
    if ( _clippingPath[0] == _clippingPath[ _clippingPath.size() - 1 ] ) 
      _clippingPath.pop_back();
  }
  unsigned int n = _clippingPath.size();
  for ( unsigned int i = 0; i < n; ++i ) {
    _clippingPath[i] = _state.unit( _clippingPath[i] );
  }
}


void
Board::addDuplicates( const Shape & shape,
          unsigned int times,
          double dx, double dy, double scaleValue )
{
  Shape * s = shape.clone();
  while ( times-- ) {
    (*this) << (*s);
    if ( scaleValue != 1.0 )
      s->scale( scaleValue );
    s->translate( dx, dy );
  }
  delete s;
}

void
Board::addDuplicates( const Shape & shape,
          unsigned int times,
          double dx, double dy,
          double scaleX, double scaleY,
          double angle )
{
  Shape * s = shape.clone();
  while ( times-- ) {
    (*this) << (*s);
    if ( scaleX != 1.0 || scaleY != 1.0 ) s->scale( scaleX, scaleY );
    if ( dx != 0.0 || dy != 0.0 ) s->translate( dx, dy );
    if ( angle != 0.0 ) s->rotate( angle );
  }
  delete s;
}

void
Board::saveEPS( std::ostream &out, PageSize size, double margin ) const
{
  saveEPS( out, pageSizes[size][0], pageSizes[size][1], margin );
}

void
Board::saveEPS( const char * filename, PageSize size, double margin ) const
{
  saveEPS( filename, pageSizes[size][0], pageSizes[size][1], margin );
}

  
void
Board::saveEPS( const char * filename, double pageWidth, double pageHeight, double margin ) const
{
  std::ofstream file( filename );  
  saveEPS(file, pageWidth, pageHeight, margin);
  file.close();
}

void
Board::saveEPS( std::ostream &out, double pageWidth, double pageHeight, double margin ) const
{
  Rect box = boundingBox();
  bool clipping = _clippingPath.size() > 2;
  if ( clipping )
    box = box && _clippingPath.boundingBox();
  
  TransformEPS transform;
  transform.setBoundingBox( box, pageWidth, pageHeight, margin );
  
  out << "%!PS-Adobe-2.0 EPSF-2.0" << std::endl;
  out << "%%Title:  output.eps " << std::endl;
  out << "%%Creator: Board library (Copyleft)2007 Sebastien Fourey" << std::endl;
  {
    time_t t = time(0);
    char str_time[255];
    secured_ctime( str_time, &t, 255 );
    out << "%%CreationDate: " << str_time;
  }
  out << "%%BoundingBox: " << std::setprecision( 8 )
       << transform.mapX( box.left ) << " "
       << transform.mapY( box.top - box.height ) << " "
       << transform.mapX( box.left + box.width ) << " "
       << transform.mapY( box.top ) << std::endl;

  out << "%Magnification: 1.0000" << std::endl;
  out << "%%EndComments" << std::endl;

  out << std::endl;
  out << "/cp {closepath} bind def" << std::endl;
  out << "/ef {eofill} bind def" << std::endl;
  out << "/gr {grestore} bind def" << std::endl;
  out << "/gs {gsave} bind def" << std::endl;
  out << "/sa {save} bind def" << std::endl;
  out << "/rs {restore} bind def" << std::endl;
  out << "/l {lineto} bind def" << std::endl;
  out << "/m {moveto} bind def" << std::endl;
  out << "/rm {rmoveto} bind def" << std::endl;
  out << "/n {newpath} bind def" << std::endl;
  out << "/s {stroke} bind def" << std::endl;
  out << "/sh {show} bind def" << std::endl;
  out << "/slc {setlinecap} bind def" << std::endl;
  out << "/slj {setlinejoin} bind def" << std::endl;
  out << "/slw {setlinewidth} bind def" << std::endl;
  out << "/srgb {setrgbcolor} bind def" << std::endl;
  out << "/rot {rotate} bind def" << std::endl;
  out << "/sc {scale} bind def" << std::endl;
  out << "/sd {setdash} bind def" << std::endl;
  out << "/ff {findfont} bind def" << std::endl;
  out << "/sf {setfont} bind def" << std::endl;
  out << "/scf {scalefont} bind def" << std::endl;
  out << "/sw {stringwidth} bind def" << std::endl;
  out << "/sd {setdash} bind def" << std::endl;
  out << "/tr {translate} bind def" << std::endl;
  out << " 0.5 setlinewidth" << std::endl;

  if ( clipping ) {
    out << " newpath ";
    _clippingPath.flushPostscript( out, transform );
    out << " 0 slw clip " << std::endl;
  }
  
  // Draw the background color if needed.
  if ( _backgroundColor != DGtal::Color::None ) { 
    Rectangle r( box, DGtal::Color::None, _backgroundColor, 0.0f );
    r.flushPostscript( out, transform );
  }

  // Draw the shapes
  std::vector< Shape* > shapes = _shapes;

  stable_sort( shapes.begin(), shapes.end(), shapeGreaterDepth );
  std::vector< Shape* >::const_iterator i = shapes.begin();
  std::vector< Shape* >::const_iterator end = shapes.end();

  while ( i != end ) {
    (*i)->flushPostscript( out, transform );
    ++i;
  }
  out << "showpage" << std::endl;
  out << "%%Trailer" << std::endl;
  out << "%EOF" << std::endl;
}



void
Board::saveFIG( const char * filename, PageSize size, double margin, bool includeFIGHeader ) const
{
  saveFIG( filename, pageSizes[size][0], pageSizes[size][1], margin, includeFIGHeader );
}
void
Board::saveFIG( std::ostream &out, PageSize size, double margin, bool includeFIGHeader ) const
{
  saveFIG( out, pageSizes[size][0], pageSizes[size][1], margin, includeFIGHeader );
}
void
Board::saveFIG( const char * filename, double pageWidth, double pageHeight, double margin,  
                bool includeFIGHeader  ) const
{
  std::ofstream file( filename );
  saveFIG( file, pageWidth, pageHeight, margin, includeFIGHeader);
  file.close();
}

void
Board::saveFIG( std::ostream &file, double pageWidth, double pageHeight, double margin, bool includeFIGHeader ) const
{
  

  TransformFIG transform;
  Rect box = boundingBox();
  transform.setBoundingBox( box, pageWidth, pageHeight, margin  );
  transform.setDepthRange( *this );
  if(includeFIGHeader){    
    file << "#FIG 3.2  Produced by the Board library (Copyleft)2007 Sebastien Fourey\n";
    file << "Portrait\n";
    file << "Center\n";
    file << "Metric\n";
    file << "A4\n";
    file << "100.00\n";
    file << "Single\n";
    file << "-2\n";
    file << "1200 2\n";
  }else{
    file << "\n";
  }
  std::map<DGtal::Color,int> colormap;
  int maxColor = 32;


  colormap[DGtal::Color(0,0,0)] = 0; 
  colormap[DGtal::Color(0,0,255)] = 1; 
  colormap[DGtal::Color(0,255,0)] = 2; 
  colormap[DGtal::Color(0,255,255)] = 0; 
  colormap[DGtal::Color(255,0,0)] = 4; 
  colormap[DGtal::Color(255,0,255)] = 0; 
  colormap[DGtal::Color(255,255,0)] = 6; 
  colormap[DGtal::Color(255,255,255)] = 7;


  std::vector< Shape* > shapes = _shapes;
  stable_sort( shapes.begin(), shapes.end(), shapeGreaterDepth );
  std::vector< Shape* >::const_iterator i = shapes.begin();
  std::vector< Shape* >::const_iterator end = shapes.end();
  while ( i != end ) { 
    if ( colormap.find( (*i)->penColor() ) == colormap.end() 
   && (*i)->penColor().valid() )
      colormap[ (*i)->penColor() ] = maxColor++;
    if ( colormap.find( (*i)->fillColor() ) == colormap.end()
   && (*i)->fillColor().valid() )
      colormap[ (*i)->fillColor() ] = maxColor++;
    ++i;
  }

  if ( colormap.find( _backgroundColor ) == colormap.end()
       && _backgroundColor.valid() )
    colormap[ _backgroundColor ] = maxColor++;
  
  // Write the colormap
  std::map<DGtal::Color,int>::const_iterator iColormap = colormap.begin();
  std::map<DGtal::Color,int>::const_iterator endColormap = colormap.end();
  char colorString[255];
  while ( iColormap != endColormap ) {
    secured_sprintf( colorString, 255,
                 "0 %d #%02x%02x%02x\n",
                 iColormap->second,
                   iColormap->first.red(),
                   iColormap->first.green(),
                   iColormap->first.blue() );
    if ( iColormap->second >= 32 ) file << colorString;
    ++iColormap;
  }

  // Draw the background color if needed.
  if ( _backgroundColor != DGtal::Color::None ) { 
    Rectangle r( box, DGtal::Color::None, _backgroundColor, 0.0f );
    r.depth( std::numeric_limits<int>::max() );
    r.flushFIG( file, transform, colormap );
  }

  // Draw the shapes.
  i = shapes.begin();
  while ( i != end ) {
    // notice << (*i)->name() << " " << (*i)->depth() <<  '\n';
    (*i)->flushFIG( file, transform, colormap );
    ++i;
  }  
}


void
Board::saveSVG( const char * filename, PageSize size, double margin ) const
{
  saveSVG( filename, pageSizes[size][0], pageSizes[size][1], margin );
}

void
Board::saveSVG( std::ostream &out, PageSize size, double margin ) const
{
  saveSVG( out, pageSizes[size][0], pageSizes[size][1], margin );
}


void
Board::saveSVG( const char * filename, double pageWidth, double pageHeight, double margin ) const
{
  std::ofstream file( filename );
  saveSVG(file, pageWidth, pageHeight, margin);
  file.close();
}



void
Board::saveSVG( std::ostream &file, double pageWidth, double pageHeight, double margin, string filename ) const
{
  
  TransformSVG transform;
  Rect box = boundingBox();
  bool clipping = _clippingPath.size() > 2;
  if ( clipping )
    box = box && _clippingPath.boundingBox();
  transform.setBoundingBox( box, pageWidth, pageHeight, margin );

  file << "<?xml version=\"1.0\" encoding=\"ISO-8859-1\" standalone=\"no\"?>" << std::endl;
  file << "<!DOCTYPE svg PUBLIC \"-//W3C//DTD SVG 1.1//EN\"" << std::endl;
  file << " \"http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd\">" << std::endl;

  if ( pageWidth > 0 && pageHeight > 0 ) {
    file << "<svg width=\""
   << pageWidth << "mm\" height=\""
   << pageHeight << "mm\" " << std::endl;
    file << "     viewBox=\"0 0 "
    << pageWidth * ppmm  << " "
    << pageHeight * ppmm  << "\" " << std::endl;
    file << "     xmlns=\"http://www.w3.org/2000/svg\" version=\"1.1\" >" << std::endl;
  } else {
    file << "<svg width=\""
   << ( box.width / ppmm )  << "mm"
   << "\" height=\""
   << ( box.height / ppmm ) << "mm"
   << "\" " << std::endl;
    file << "     viewBox=\"0 0 "
   << box.width  << " "
   << box.height << "\" " << std::endl;
    file << "     xmlns=\"http://www.w3.org/2000/svg\" version=\"1.1\" xmlns:xlink=\"http://www.w3.org/1999/xlink\" >" << std::endl;

  }

  file << "<desc>" << filename 
       << ", created with the Board library (Copyleft) 2007 Sebastien Fourey" 
       << "</desc>" << std::endl;

  if ( clipping  ) {
    file << "<g clip-rule=\"nonzero\">\n"
   << " <clipPath id=\"GlobalClipPath\">\n"
   << "  <path clip-rule=\"evenodd\"  d=\"";
    _clippingPath.flushSVGCommands( file, transform );
    file << "\" />\n";
    file << " </clipPath>\n";
    file << "<g clip-path=\"url(#GlobalClipPath)\">\n";
  }
  
  // Draw the background color if needed.
  if ( _backgroundColor != DGtal::Color::None ) { 
    Rectangle r( box, DGtal::Color::None, _backgroundColor, 0.0 );
    r.flushSVG( file, transform );
  }
  
  // Draw the shapes.
  std::vector< Shape* > shapes = _shapes;
  stable_sort( shapes.begin(), shapes.end(), shapeGreaterDepth );
  std::vector< Shape* >::const_iterator i = shapes.begin();
  std::vector< Shape* >::const_iterator end = shapes.end();
  while ( i != end ) {
    (*i)->flushSVG( file, transform );
    ++i;
  }  

  if ( clipping )
    file << "</g>\n</g>";
  file << "</svg>" << std::endl;
 
}


void
Board::save( const char * filename, double pageWidth, double pageHeight, double margin ) const 
{
  const char * extension = filename + strlen( filename );
  while ( extension > filename && *extension != '.' ) 
    --extension;
  if ( !(strcmp( extension, ".eps" )) || !(strcmp( extension, ".EPS" )) ) {
    saveEPS( filename, pageWidth, pageHeight, margin );
    return;
  }
  if ( !(strcmp( extension, ".fig" )) || !(strcmp( extension, ".FIG" )) ) {
    saveFIG( filename, pageWidth, pageHeight, margin );
    return;
  }
  if ( !(strcmp( extension, ".svg" )) || !(strcmp( extension, ".SVG" )) ) {
    saveSVG( filename, pageWidth, pageHeight, margin );
    return;
  }
  if ( !(strcmp( extension, ".tikz" )) || !(strcmp( extension, ".TIKZ" )) ) {
    saveTikZ( filename, pageWidth, pageHeight, margin );
    return;
  }
}

void
Board::save( const char * filename, PageSize size, double margin ) const 
{
  save( filename, pageSizes[size][0], pageSizes[size][1], margin );
}

#ifdef WITH_CAIRO
void
Board::saveCairo( const char * filename, CairoType type, PageSize size, double margin ) const
{
  saveCairo( filename, type, pageSizes[size][0], pageSizes[size][1], margin );
}
void
Board::saveCairo( const char * filename, CairoType type, double pageWidth, double pageHeight, double margin ) const
{
  cairo_surface_t *surface;
  cairo_t *cr;
  
  double cairoWidth, cairoHeight;
  
  TransformCairo transform;
  Rect box = boundingBox();

  bool clipping = _clippingPath.size() > 2;
  if ( clipping )
    box = box && _clippingPath.boundingBox();
  transform.setBoundingBox( box, pageWidth, pageHeight, margin );
  
  if ( pageWidth > 0 && pageHeight > 0 )
  {
    cairoWidth = pageWidth;
    cairoHeight = pageHeight;
  }
  else
  {
    cairoWidth = box.width;
    cairoHeight = box.height;
  }
  
  switch (type)
  {
  case CairoPDF:
      surface = cairo_pdf_surface_create (filename, cairoWidth, cairoHeight); break;
  case CairoPS:
      surface = cairo_ps_surface_create (filename, cairoWidth, cairoHeight); break;
  case CairoEPS:
    surface = cairo_ps_surface_create (filename, cairoWidth, cairoHeight); 
    cairo_ps_surface_set_eps(surface, true); break;
  case CairoSVG:
      surface = cairo_svg_surface_create (filename, cairoWidth, cairoHeight); break;
    case CairoPNG:
    default:
      surface = cairo_image_surface_create (CAIRO_FORMAT_ARGB32, (int)cairoWidth, (int)cairoHeight);
  }
  
  cr = cairo_create (surface);
  
  /* For 1.0 x 1.0 coordinate space */
  //cairo_scale (cr, cairoWidth, cairoHeight);
  
  //temp: http://zetcode.com/tutorials/cairographicstutorial/basicdrawing/
  //temp: http://www.graphviz.org/pub/scm/graphviz-cairo/plugin/cairo/gvrender_cairo.c
      
  // Draw the background color if needed.
  if ( _backgroundColor != DGtal::Color::None ) { 
    Rectangle r( box, DGtal::Color::None, _backgroundColor, 0.0 );
    r.flushCairo( cr, transform );
  }
  
  // Draw the shapes.
  std::vector< Shape* > shapes = _shapes;
  stable_sort( shapes.begin(), shapes.end(), shapeGreaterDepth );
  std::vector< Shape* >::const_iterator i = shapes.begin();
  std::vector< Shape* >::const_iterator end = shapes.end();
  while ( i != end ) {
    (*i)->flushCairo( cr, transform );
    ++i;
  }
  
  if (type==CairoPNG)
    cairo_surface_write_to_png (surface, filename);
      
  cairo_destroy (cr);
  cairo_surface_destroy (surface);
}
#endif

void
Board::saveTikZ( const char * filename, PageSize size, double margin ) const
{
  saveTikZ( filename, pageSizes[size][0], pageSizes[size][1], margin );
}

void
Board::saveTikZ( std::ostream & out, PageSize size, double margin ) const
{
  saveTikZ( out, pageSizes[size][0], pageSizes[size][1], margin );
}

void
Board::saveTikZ( const char * filename, double pageWidth, double pageHeight, double margin ) const
{
  std::ofstream file( filename );
  saveTikZ(file, pageHeight, pageHeight, margin);
  file.close();
}

void
Board::saveTikZ( std::ostream &out, double pageWidth, double pageHeight, double margin ) const
{
  TransformTikZ transform;
  Rect box = boundingBox();
  bool clipping = _clippingPath.size() > 2;
  if ( clipping )
    box = box && _clippingPath.boundingBox();
  transform.setBoundingBox( box, pageWidth, pageHeight, margin );

  out << "\\begin{tikzpicture}[anchor=south west,text depth=0,x={(1pt,0pt)},y={(0pt,-1pt)}]" << std::endl;

/*
  if ( pageWidth > 0 && pageHeight > 0 ) {
    out << "<svg width=\""
         << pageWidth << "mm\" height=\""
         << pageHeight << "mm\" " << std::endl;
    out << "     viewBox=\"0 0 "
         << pageWidth * ppmm  << " "
         << pageHeight * ppmm  << "\" " << std::endl;
    out << "     xmlns=\"http://www.w3.org/2000/svg\" version=\"1.1\" >" << std::endl;
  } else {
    out << "<svg width=\""
         << ( box.width / ppmm )  << "mm"
         << "\" height=\""
         << ( box.height / ppmm ) << "mm"
         << "\" " << std::endl;
    out << "     viewBox=\"0 0 "
         << box.width  << " "
         << box.height << "\" " << std::endl;
    out << "     xmlns=\"http://www.w3.org/2000/svg\" version=\"1.1\" xmlns:xlink=\"http://www.w3.org/1999/xlink\" >" << std::endl;

  }

  out << "<desc>" << filename 
       << ", created with the Board library (Copyleft) 2007 Sebastien Fourey" 
       << "</desc>" << std::endl;*/

  if ( clipping  ) {
    out << "\\clip ";
    _clippingPath.flushSVGCommands( out, transform );
    out << "\n";
  }
  
  // Draw the background color if needed.
  if ( _backgroundColor != Color::None ) { 
    Rectangle r( box, Color::None, _backgroundColor, 0.0 );
    r.flushTikZ( out, transform );
  }

  // Draw the shapes.
  std::vector< Shape* > shapes = _shapes;
  stable_sort( shapes.begin(), shapes.end(), shapeGreaterDepth );
  std::vector< Shape* >::const_iterator i = shapes.begin();
  std::vector< Shape* >::const_iterator end = shapes.end();
  while ( i != end ) {
    (*i)->flushTikZ( out, transform );
    ++i;
  }  

  //if ( clipping )
  //  out << "</g>\n</g>";
  out << "\\end{tikzpicture}" << std::endl;
}


} // namespace LibBoard;