EpsView.cxx

Go to the documentation of this file.

#ifdef HAVE_CONFIG_H
#include "config.h"
#else
#ifdef _MSC_VER
#include "msdevstudio/MSconfig.h"
#endif
#endif

#include "EpsView.h"

#include "FontBase.h"
#include "Color.h"

#include "plotters/PlotterBase.h"

using namespace hippodraw;

#ifdef ITERATOR_MEMBER_DEFECT
using namespace std;
#else
using std::endl;
using std::ofstream;
using std::string;
#endif

EpsView::
EpsView ( const string filename, double x, double y, double w, double h )
  : ViewBase(),
    m_boundingRect ( x, y, w, h )
{
  initPlot ( filename, x, y, w, h );
}

EpsView::~EpsView()
{
  m_outfile.close();
}

void EpsView::initPlot ( double aspect )
{
}

void EpsView::initPlot ( const std::string & fname, 
                         double x, double y, double w, double h )
{

  const char * fn = fname.c_str();
  m_outfile.open (fn, std::ios::out);

  m_outfile << "%%!PS-Adobe-3.0 EPSF-3.0" << endl;
  m_outfile << "%%Creator: HippoDraw" << endl;

  double x1 = 0;
  double y1 = 0;
  double x2 = x1 + w;
  double y2 = y1 + h;

  m_outfile << "%%BoundingBox: " 
          << x1 << " " << y1 << " " 
          << x2 << " " << y2 << endl; 
  
  m_outfile << "%%EndComments" << endl;
  m_outfile << endl << endl;

  m_outfile << "%% Add emulation of selectfont if needed" << endl;
  m_outfile << "%%   taken from PS Lang. Ref. Manual, Appendix D.4" << endl;
  m_outfile << "/*SF {" << endl;
  m_outfile << "  exch findfont exch" << endl;
  m_outfile << "  dup type /arraytype eq {makefont}{scalefont} ifelse setfont" 
            << endl;
  m_outfile << "} bind def" << endl;
  m_outfile << endl;
  m_outfile << "/languagelevel where" << endl;
  m_outfile << " {pop languagelevel} {1} ifelse" << endl;
  m_outfile << "2 lt {/SF /*SF load def}{/SF /selectfont load def} ifelse"
          << endl;

  m_outfile << "%%" << endl << "%%" << endl;
}

void EpsView::endPlot()
{
  m_outfile << "%%EOF" << endl;
}

void EpsView::drawLines ( const std::vector< double > & x,
                          const std::vector< double > & y,
                          hippodraw::Line::Style style,
                          const Color & color,
                          float size )
{
  m_outfile << "%% drawLines" << endl;

  m_outfile << "gsave" << endl;

  m_outfile << (float)(color.getRed() / 255.0) << " " 
          << (float)(color.getGreen() / 255.0) << " "
          << (float)(color.getBlue() / 255.0) << " setrgbcolor" << endl;

  m_outfile << size << " setlinewidth" << endl;

  switch (style)
    {
    case Line::Solid:
      m_outfile << "[] 0 setdash" << endl;
      break;
    case Line::Dot:
      m_outfile << "[3 5] 0 setdash" << endl;
      break;
    case Line::Dash:
      m_outfile << "[5 3] 0 setdash" << endl;
      break;
    case Line::DashDot:
      m_outfile << "[5 3 1 3] 0 setdash" << endl;
      break;
    default:
      break;
    }
  
  for ( unsigned int i = 0; i < x.size(); i = i+2 )
    {
      
      m_outfile << "gsave" << endl << "newpath systemdict begin" << endl;
      m_outfile << toViewX (x[i]) << " "
                << toViewY (y[i]) << " moveto" << endl;
      m_outfile << toViewX (x[i+1]) << " "
                << toViewY (y[i+1]) << " lineto" << endl;
      m_outfile << "end" << endl;
      m_outfile << "stroke grestore" << endl;
      
    }

  m_outfile << "grestore" << endl;

}

void EpsView::drawColorLines ( const std::vector< double > & x,
                               const std::vector< double > & y,
                               hippodraw::Line::Style style,
                               const std::vector < Color > & colors,
                               float size )
{
  m_outfile << "%% drawLines" << endl;
  m_outfile << "gsave" << endl;

  for (unsigned int i = 0; i < x.size(); i+=2 ){
    
    const Color & color = colors[i];
    float red   = color.getRed () / 255.;
    float green = color.getGreen () / 255.;
    float blue  = color.getBlue () / 255.;
    m_outfile << red
              << " " << green
              << " " << blue
              << " setrgbcolor" << endl;

    m_outfile << size << " setlinewidth" << endl;

    switch (style)
      {
      case Line::Solid:
        m_outfile << "[] 0 setdash" << endl;
        break;
      case Line::Dot:
        m_outfile << "[3 5] 0 setdash" << endl;
        break;
      case Line::Dash:
        m_outfile << "[5 3] 0 setdash" << endl;
        break;
      case Line::DashDot:
        m_outfile << "[5 3 1 3] 0 setdash" << endl;
        break;
      default:
        break;
      }
  
    m_outfile << "gsave" << endl << "newpath systemdict begin" << endl;
    m_outfile << toViewX (x[i]) << " "
              << toViewY (y[i]) << " moveto" << endl;
    m_outfile << toViewX (x[i+1]) << " "
              << toViewY (y[i+1]) << " lineto" << endl;
    m_outfile << "end" << endl;
    m_outfile << "stroke grestore" << endl;
    
  }
  
  m_outfile << "grestore" << endl;

}

void EpsView::drawViewLines ( const std::vector< double > & x,
                              const std::vector< double > & y,
                              hippodraw::Line::Style style,
                              bool color,
                              float size )
{
  m_outfile << "%% drawViewLines1" << endl;
  
  m_outfile << "gsave" << endl;

  m_outfile << size << " setlinewidth" << endl;

  switch (style)
    {
    case Line::Solid:
      m_outfile << "[] 0 setdash" << endl;
      break;
    case Line::Dot:
      m_outfile << "[3 5] 0 setdash" << endl;
      break;
    case Line::Dash:
      m_outfile << "[5 3] 0 setdash" << endl;
      break;
    case Line::DashDot:
      m_outfile << "[5 3 1 3] 0 setdash" << endl;
      break;
    default:
      break;
    }

    for ( unsigned int i = 0; i < x.size(); i = i+2 )
    {
    
      m_outfile << "gsave" << endl << "newpath systemdict begin" << endl;
      m_outfile << toX(x[i]) << " " << toY(y[i]) << " moveto" << endl;
      m_outfile << toX(x[i+1]) << " " << toY(y[i+1]) << " lineto" << endl;
      m_outfile << "end" << endl;
      m_outfile << "stroke grestore" << endl;
      
    }

    m_outfile << "grestore" << endl;

}
 
void EpsView::drawViewLines ( const std::vector< double > & x,
                              const std::vector< double > & y,
                              hippodraw::Line::Style style,
                              const Color & color,
                              float size )
{
  
  m_outfile << "%% drawViewLines2" << endl;

  m_outfile << "gsave" << endl;

  m_outfile << (float)(color.getRed() / 255.0) << " " 
          << (float)(color.getGreen() / 255.0) << " "
          << (float)(color.getBlue() / 255.0) << " setrgbcolor" << endl;

  m_outfile << size << " setlinewidth" << endl;

  switch (style)
    {
    case Line::Solid:
      m_outfile << "[] 0 setdash" << endl;
      break;
    case Line::Dot:
      m_outfile << "[3 5] 0 setdash" << endl;
      break;
    case Line::Dash:
      m_outfile << "[5 3] 0 setdash" << endl;
      break;
    case Line::DashDot:
      m_outfile << "[5 3 1 3] 0 setdash" << endl;
      break;
    default:
      break;
    }
  
  for ( unsigned int i = 0; i < x.size(); i = i+2 )
    {
      
      m_outfile << "gsave" << endl << "newpath systemdict begin" << endl;
      m_outfile << toX(x[i]) << " " << toY(y[i]) << " moveto" << endl;
      m_outfile << toX(x[i+1]) << " " << toY(y[i+1]) << " lineto" << endl;
      m_outfile << "end" << endl;
      m_outfile << "stroke grestore" << endl;
      
    }
  
  m_outfile << "grestore" << endl;
  
}
 
void EpsView::drawPolyLine ( const std::vector< double > & xpoints,
                             const std::vector< double > & ypoints, 
                             hippodraw::Line::Style style,
                             const Color & color,
                             float size )
{
  if ( style == Line::Invisible ) return;

  m_outfile << "%% drawPolyLine" << endl;

  m_outfile << "gsave" << endl;

  m_outfile << (float)(color.getRed() / 255.0) << " " 
            << (float)(color.getGreen() / 255.0) << " "
            << (float)(color.getBlue() / 255.0) << " setrgbcolor" << endl;

  m_outfile << size << " setlinewidth" << endl;

  switch (style)
    {
    case Line::Solid:
      m_outfile << "[] 0 setdash" << endl;
      break;
    case Line::Dot:
      m_outfile << "[1 1] 0 setdash" << endl;
      break;
    case Line::Dash:
      m_outfile << "[6 2] 0 setdash" << endl;
      break;
    case Line::DashDot:
      m_outfile << "[5 3 1 3] 0 setdash" << endl;
      break;
    case Line::DashDotDot:
      m_outfile << "[5 1 1 1 1 1] 0 setdash" << endl;
      break;
    default:
      break;
    }
  
  m_outfile << "gsave" << endl << "newpath systemdict begin" << endl;
  m_outfile << toViewX ( xpoints[0] ) << " " 
          << toViewY ( ypoints[0] ) << " moveto" << endl;

  for ( unsigned int i = 1; i < xpoints.size(); i++ )
    {
      
      m_outfile << toViewX ( xpoints[i] ) << " " 
              << toViewY ( ypoints[i] ) << " lineto" << endl;
    }
     
  m_outfile << "end" << endl;
  
  m_outfile << "stroke grestore" << endl;

  m_outfile << "grestore" << endl;

}

void
EpsView::
drawSquare ( double x1, double y1, double x2, double y2,
             int red, int green, int blue )
{
  m_outfile << "%% drawSquareRGB" << endl;

  m_outfile << "gsave" << endl;
  
  m_outfile << (float)(red / 255.0) << " " 
          << (float)(green / 255.0) << " "
          << (float)(blue / 255.0) << " setrgbcolor" << endl;
  
  m_outfile << "newpath" << endl; 
  m_outfile << toViewX ((double)(x1)) << " " 
            << toViewY ((double)(y1)) << " moveto" << endl;
  m_outfile << toViewX ((double)(x2)) << " " 
            << toViewY ((double)(y1)) << " lineto" << endl;
  m_outfile << toViewX ((double)(x2)) << " " 
            << toViewY ((double)(y2)) << " lineto" << endl;
  m_outfile << toViewX ((double)(x1)) << " " 
            << toViewY ((double)(y2)) << " lineto" << endl;
  m_outfile << "closepath" << endl;

  m_outfile << "fill" << endl;

  m_outfile << "grestore" << endl;

}

void EpsView::drawViewSquare ( float x1, float y1, float x2, float y2,
                               int red, int green, int blue )
{
  m_outfile << "%% drawSquareRGB" << endl;

  m_outfile << "gsave" << endl;
  
  m_outfile << (float)(red / 255.0) << " " 
          << (float)(green / 255.0) << " "
          << (float)(blue / 255.0) << " setrgbcolor" << endl;
  
  m_outfile << "newpath" << endl; 
  m_outfile << toX ((double)(x1)) << " " 
            << toY ((double)(y1)) << " moveto" << endl;
  m_outfile << toX ((double)(x2)) << " " 
            << toY ((double)(y1)) << " lineto" << endl;
  m_outfile << toX ((double)(x2)) << " " 
            << toY ((double)(y2)) << " lineto" << endl;
  m_outfile << toX ((double)(x1)) << " " 
            << toY ((double)(y2)) << " lineto" << endl;
  m_outfile << "closepath" << endl;

  m_outfile << "fill" << endl;

  m_outfile << "grestore" << endl;

}

void EpsView::drawPoints ( const std::vector<double> & x,
                           const std::vector<double> & y,
                           hippodraw::Symbol::Type type, 
                           float sym_size, 
                           const Color & color )
{
  m_outfile << "%% drawPoints" << endl;

  m_outfile << "gsave" << endl;

  m_outfile << (float)(color.getRed() / 255.0) << " " 
          << (float)(color.getGreen() / 255.0) << " "
          << (float)(color.getBlue() / 255.0) << " setrgbcolor" << endl;

  bool filled = false;

  if ( type == Symbol::SOLIDSQUARE ||
       type == Symbol::FILLED_TRIANGLE ||
       type == Symbol::FILLED_CIRCLE ) filled = true;

  m_outfile << "gsave" << endl;
  m_outfile << "newpath systemdict begin" << endl;
  
  for (unsigned int i = 0; i < x.size(); i++)
    {
      
      switch ( type )
        {
        case Symbol::SQUARE:
        case Symbol::SOLIDSQUARE:
          
          m_outfile << toViewX (x[i])-(sym_size/2) << " " 
                  << toViewY (y[i])-(sym_size/2) << " moveto" << endl;
          m_outfile << toViewX (x[i])+(sym_size/2) << " " 
                    << toViewY (y[i])-(sym_size/2) << " lineto" << endl;
          m_outfile << toViewX (x[i])+(sym_size/2) << " " 
                    << toViewY (y[i])+(sym_size/2) << " lineto" << endl;
          m_outfile << toViewX (x[i])-(sym_size/2) << " " 
                    << toViewY (y[i])+(sym_size/2) << " lineto" << endl;
          m_outfile << "closepath" << endl;
          
          break;
          
        case Symbol::TRIANGLE:
        case Symbol::FILLED_TRIANGLE:
          m_outfile << toViewX (x[i]) << " " 
                    << toViewY (y[i]) + (sym_size/2) << " moveto" << endl;
          m_outfile << toViewX (x[i]) + (sym_size/2) << " " 
                    << toViewY (y[i])-(sym_size/2) << " lineto" << endl;
          m_outfile << toViewX (x[i]) - (sym_size/2) << " " 
                    << toViewY (y[i])-(sym_size/2) << " lineto" << endl;
          m_outfile << "closepath" << endl;
          break;
          
        case Symbol::CIRCLE:
        case Symbol::FILLED_CIRCLE:
          m_outfile << toViewX (x[i]) + (sym_size/2) << " "
                    << toViewY (y[i]) << " moveto" << endl;
          m_outfile << toViewX (x[i]) << " "
                    << toViewY (y[i]) << " "
                  << sym_size/2 << " "
                  << "0.0 360 arc" << endl;
          break;

        case Symbol::PLUS:
          m_outfile << toViewX (x[i])-(sym_size/2) << " " 
                    << toViewY (y[i]) << " moveto" << endl;
          m_outfile << toViewX (x[i])+(sym_size/2) << " " 
                    << toViewY (y[i]) << " lineto" << endl;
          m_outfile << toViewX (x[i]) << " " 
                    << toViewY (y[i])-(sym_size/2) << " moveto" << endl;
          m_outfile << toViewX (x[i]) << " " 
                    << toViewY (y[i])+(sym_size/2) << " lineto" << endl;
          break;
          
        case Symbol::TIMES:
          m_outfile << toViewX (x[i])-(sym_size/2) << " " 
                    << toViewY (y[i])-(sym_size/2) << " moveto" << endl;
          m_outfile << toViewX (x[i])+(sym_size/2) << " " 
                    << toViewY (y[i])+(sym_size/2) << " lineto" << endl;
          m_outfile << toViewX (x[i])+(sym_size/2) << " " 
                    << toViewY (y[i])-(sym_size/2) << " moveto" << endl;
          m_outfile << toViewX (x[i])-(sym_size/2) << " " 
                    << toViewY (y[i])+(sym_size/2) << " lineto" << endl;
          break;

        default:
          break;
        }
    }

  m_outfile << "end" << endl;
  
  if(filled)
    {
      m_outfile << "fill grestore" << endl;
    }
  else
    {
      m_outfile << "stroke grestore" << endl;
    }

  m_outfile << "grestore" << endl;
  
}

void
EpsView::
drawPoints ( const std::vector< double > & x,
             const std::vector< double > & y, 
             const std::vector< Color > & colors,
             hippodraw::Symbol::Type type, 
             float sym_size )
{
  m_outfile << "%% drawPoints2" << endl;

  m_outfile << "gsave" << endl;
  
  bool filled = false;

  if ( type == Symbol::SOLIDSQUARE ||
       type == Symbol::FILLED_TRIANGLE ||
       type == Symbol::FILLED_CIRCLE ) filled = true;

  for (unsigned int i = 0; i < x.size(); i++)
    {
      m_outfile << "gsave" << endl;

      const Color & color = colors[i];
      float red   = color.getRed ();
      float green = color.getGreen ();
      float blue  = color.getBlue ();
      m_outfile << red << " "
                << green << " "
                << blue << " "
                << "setrgbcolor"
                << endl;

      m_outfile << "newpath systemdict begin" << endl;

      switch ( type )
        {
        case Symbol::SQUARE:
        case Symbol::SOLIDSQUARE:
          
          m_outfile << toViewX (x[i])-(sym_size/2) << " " 
                  << toViewY (y[i])-(sym_size/2) << " moveto" << endl;
          m_outfile << toViewX (x[i])+(sym_size/2) << " " 
                    << toViewY (y[i])-(sym_size/2) << " lineto" << endl;
          m_outfile << toViewX (x[i])+(sym_size/2) << " " 
                    << toViewY (y[i])+(sym_size/2) << " lineto" << endl;
          m_outfile << toViewX (x[i])-(sym_size/2) << " " 
                    << toViewY (y[i])+(sym_size/2) << " lineto" << endl;
          m_outfile << "closepath" << endl;
          
          break;
          
        case Symbol::TRIANGLE:
        case Symbol::FILLED_TRIANGLE:
          m_outfile << toViewX (x[i]) << " " 
                    << toViewY (y[i]) + (sym_size/2) << " moveto" << endl;
          m_outfile << toViewX (x[i]) + (sym_size/2) << " " 
                    << toViewY (y[i])-(sym_size/2) << " lineto" << endl;
          m_outfile << toViewX (x[i]) - (sym_size/2) << " " 
                    << toViewY (y[i])-(sym_size/2) << " lineto" << endl;
          m_outfile << "closepath" << endl;
          break;
          
        case Symbol::CIRCLE:
        case Symbol::FILLED_CIRCLE:
          m_outfile << toViewX (x[i]) + (sym_size/2) << " "
                  << toViewY (y[i]) << " moveto" << endl;
          m_outfile << toViewX (x[i]) << " "
                  << toViewY (y[i]) << " "
                  << sym_size/2 << " "
                  << "0.0 360 arc" << endl;
          break;

        case Symbol::PLUS:
          m_outfile << toViewX (x[i])-(sym_size/2) << " " 
                    << toViewY (y[i]) << " moveto" << endl;
          m_outfile << toViewX (x[i])+(sym_size/2) << " " 
                    << toViewY (y[i]) << " lineto" << endl;
          m_outfile << toViewX (x[i]) << " " 
                    << toViewY (y[i])-(sym_size/2) << " moveto" << endl;
          m_outfile << toViewX (x[i]) << " " 
                    << toViewY (y[i])+(sym_size/2) << " lineto" << endl;
          break;
          
        case Symbol::TIMES:
          m_outfile << toViewX (x[i])-(sym_size/2) << " " 
                    << toViewY (y[i])-(sym_size/2) << " moveto" << endl;
          m_outfile << toViewX (x[i])+(sym_size/2) << " " 
                    << toViewY (y[i])+(sym_size/2) << " lineto" << endl;
          m_outfile << toViewX (x[i])+(sym_size/2) << " " 
                    << toViewY (y[i])-(sym_size/2) << " moveto" << endl;
          m_outfile << toViewX (x[i])-(sym_size/2) << " " 
                    << toViewY (y[i])+(sym_size/2) << " lineto" << endl;
          break;

        default:
          break;

        }
   
      m_outfile << "end" << endl;
      
      if(filled)
        {
          m_outfile << "fill grestore" << endl;
        }
      else
        {
          m_outfile << "stroke grestore" << endl;
        }
    }
  
  m_outfile << "grestore" << endl;

}

void EpsView::drawMag ( float x, float y, int mag, float fontsize )
{
  
  m_outfile << "%% drawMag" << endl;
  
  m_outfile << "(Helvetica) " << fontsize << " SF" << endl;
  
  m_outfile << x - m_boundingRect.getX()  << " "
            << toY(y) + m_draw_rect.getY() << " moveto" << endl;
  m_outfile << "(x10) show" << endl;
  m_outfile << 0 << " " 
            << fontsize/2 << " rmoveto" << endl;
  m_outfile << "(" << mag << ") show" << endl;
  
}

void EpsView::drawUserText ( const std::string &s, float x, float y,
                             float fontsize, float angle,
                             char xp, char yp )
{

  m_outfile << "%% drawUserText" << endl;

  draw_Text ( s, toViewX (x), toViewY (y), fontsize, angle, xp, yp, 0 );

}

void EpsView::draw_Text ( const std::string &s, float x, float y,
                         float fontsize, float angle,
                         char xp, char yp, const FontBase * font )
{
  float xStep = 0.0, yStep = 0.0;
     
  switch (yp)
    {
    case 'c':
      yStep = 0.4f;
      break;
          
    case 't':
      yStep = 0.8f;
      break;

    default:
      break;
    }
  
  switch (xp)
    {

    case 'c':
      xStep = 0.5f;
      break;

    case 'r':
      xStep = 1.0f;
      break;

    default:
      break;
    }
     
  m_outfile << "gsave" << endl;

  int size = 0;
  if ( font == 0 ) {
    m_outfile << "(Helvetica) " << fontsize << " SF" << endl;
    size = static_cast < int > ( fontsize );
  }
  else {
    string family ( "(" );
    family += font -> family ();
    family += ") ";
    size = font -> pointSize ();
    m_outfile << family << size << " SF" << endl;
  }
  m_outfile << x << " " << y << " translate " << angle << " rotate" << endl;
     
  m_outfile << "(" << s << ") stringwidth pop" << endl;
  m_outfile << xStep << " neg mul " << -size*yStep << " moveto" << endl;
  m_outfile << "(" << s << ") show" << endl;
  m_outfile << "grestore" << endl;

}

void EpsView::drawText ( const std::string &s, float x, float y,
                         float fontsize, float angle,
                         char xp, char yp, bool resize,
                         const FontBase * font )
{
  // Resize ignored as the view size is always just bounding the contents
  m_outfile << "%% drawText" << endl;
     
  draw_Text ( s, toX(x), toY(y), fontsize, angle, xp, yp, font );
}

void EpsView:: update ( const Observable * display )
{
}

float EpsView::userToDrawX ( double x ) const
{
  return m_plotter -> userToMarginX( x );
}

float EpsView::userToDrawY ( double y ) const
{
  return m_plotter->userToInvertedMarginY( y );
}

float EpsView::userToDrawColor ( double c ) const
{
  return m_plotter->userToMarginColor( c );
}

/* virtual */
HippoRectangle EpsView::getDrawRect() const
{
  return m_draw_rect;
}

/* virtual */
void EpsView::setDrawRect ( float x, float y, float w, float h )
{
  m_draw_rect.setRect ( x, y, w, h );
}

float EpsView::toViewX ( double datX ) const
{
  return ( m_draw_rect.getX() 
           + m_plotter->userToMarginX ( datX )
           - m_boundingRect.getX() );
}

float EpsView::toViewY ( double datY ) const
{

  /* If you remove the s1 and the s2 from the return statements, you get
     the plots that look ok, but a plot on top in the canvas appears at the
     bottom in the eps file. Subtracting from s2 vertically inverts each
     plot, and then subtracting from s1 vertically inverts the entire eps
     file. The result is what is desired - Sanket. */

  float s1 = m_boundingRect.getY() + m_boundingRect.getHeight();

  float s2 = m_draw_rect.getY() + m_draw_rect.getHeight();

  return ( s1 - ( s2 -  ( m_plotter->userToMarginY ( datY )
                          - 2 * m_plotter->getMarginRect().getY()
                          + m_draw_rect.getHeight()
                          - m_plotter->getMarginRect().getHeight()
                          )
                  )
           );
}

float EpsView::toX ( double x ) const
{  
  return static_cast < float > ( m_draw_rect.getX() 
                                 + x
                                 - m_boundingRect.getX() );
}

float EpsView::toY ( double y ) const
{
  float s1 = m_boundingRect.getY() + m_boundingRect.getHeight();
  
  return static_cast < float > ( s1 - ( m_draw_rect.getY() + y ) );
}

---