home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / pstoedit.zip / source.zip / pstoedit.2.50 / src / drvcgm.cpp < prev    next >
C/C++ Source or Header  |  1996-10-29  |  16KB  |  545 lines
  1. /* 
  2.    drvCGM.cpp : This file is part of pstoedit
  3.    Backend for CGM format
  4.  
  5.    Copyright (C) 1993,1994,1995,1996 Wolfgang Glunz, Wolfgang.Glunz@zfe.siemens.de
  6.  
  7.     This program is free software; you can redistribute it and/or modify
  8.     it under the terms of the GNU General Public License as published by
  9.     the Free Software Foundation; either version 2 of the License, or
  10.     (at your option) any later version.
  11.  
  12.     This program is distributed in the hope that it will be useful,
  13.     but WITHOUT ANY WARRANTY; without even the implied warranty of
  14.     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15.     GNU General Public License for more details.
  16.  
  17.     You should have received a copy of the GNU General Public License
  18.     along with this program; if not, write to the Free Software
  19.     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  20.  
  21. */
  22.  
  23. #include <stdio.h>
  24. #include <string.h>
  25. #include <stdlib.h>
  26. #include "drvcgm.h"
  27.  
  28. #include "cd.h"
  29.  
  30. #ifdef __TCPLUSPLUS__
  31. #include <alloc.h>
  32. #endif
  33. // for sin and cos
  34. #include <math.h>
  35.  
  36. // static const unsigned int imageHeight = 850;
  37. // static const unsigned int imageWidth  = 600;
  38.  
  39. // predefined Fonts from CD-library
  40. static const char *CGM_CD_Fonts[] = { 
  41.         // although the cd-library uses the names without - we need it here
  42.         // in order to recognize the PostScript names
  43.         // !!! order of -Bold and -Italic is reversed wrt. ASC_Fonts !!!
  44.     "Times-Roman", 
  45.     "Times-Bold",
  46.     "Times-Italic", 
  47.     "Times-BoldItalic", 
  48.     "Helvetica", 
  49.     "Helvetica-Bold",
  50.     "Helvetica-Oblique", 
  51.     "Helvetica-BoldOblique",
  52.     "Courier", 
  53.     "Courier-Bold",
  54.     "Courier-Oblique", 
  55.     "Courier-BoldOblique", 
  56.     "Symbol",
  57.     0
  58. };
  59.  
  60. // for the ASCII - backend
  61. static const char *CGM_ASC_Fonts[] = { 
  62.     "Times-Roman", 
  63.     "Times-Italic", 
  64.     "Times-Bold",
  65.     "Times-BoldItalic", 
  66.     "Helvetica", 
  67.     "Helvetica-Oblique", 
  68.     "Helvetica-Bold",
  69.     "Helvetica-BoldOblique", 
  70.     "Courier", 
  71.     "Courier-Oblique", 
  72.     "Courier-Bold",
  73.     "Courier-BoldOblique", 
  74.     "Symbol" ,
  75.     0
  76. };
  77.  
  78. const char * const *    drvCGM::knownFontNames() const 
  79. {
  80.     if (binary_) {
  81.         return CGM_CD_Fonts;
  82.     } else {
  83.         return CGM_ASC_Fonts;
  84.     }
  85. }
  86.  
  87. static int getFontNumber(const char * const fontname,const char * Fnames[]) {
  88.     const unsigned int fntlength = strlen(fontname);
  89.     const char * const * fiter = Fnames;
  90.     int index = 0;
  91.     while (*fiter) {
  92.     //for (unsigned int i=0; i < numberOfFonts; i++) 
  93.         const unsigned int cgmFntLengh = strlen(*fiter);
  94.     if (fntlength == cgmFntLengh ) { 
  95.         if (strncmp(fontname,*fiter,fntlength) == 0) {
  96.         return index + 1; // cgm counts from 1
  97.         }
  98.     }
  99.     fiter++; index++;
  100.     }
  101.     return -1;
  102. }
  103.  
  104. #define cdcall(func,params) if (! func params)  {\
  105.     errf << "call to cd-library " #func " failed" << endl;\
  106.     return ; \
  107.     }
  108.  
  109. drvCGM::drvCGM(const char * driveroptions_p,ostream & theoutStream,ostream & theerrStream,bool binary):
  110.     drvbase(driveroptions_p,theoutStream,theerrStream,(!binary),0,1),
  111.     // only ascii version supports subpaths so far
  112.     binary_(binary),
  113.     cdpoints(0),
  114.     cgmimage(0)
  115. {
  116.     scale = 10.0; // only logical scale to avoid rounding problems
  117. // creating the image deffered to open_page, because we need access to the DeviceWidth/Height
  118. // but these are only available after the PostScript interpreter has finished.
  119. }
  120.  
  121. drvCGM::~drvCGM() 
  122. {
  123.     if (binary_) {
  124.         // free points, so new memory is there for the 
  125.         // cd write functions
  126.         delete [] cdpoints;
  127.  
  128.         if (cdImageCgm) {
  129.             FILE * outfile = tmpfile();
  130.             cdcall(cdImageCgm,(cgmimage, outfile));
  131.             cdcall(cdImageDestroy,(cgmimage));
  132.             cgmimage = 0;
  133.  
  134.             rewind(outfile);
  135.             filebuf outbuf(fileno(outfile));
  136.             outf << &outbuf; // This copies outbuf to outf
  137.         } else {
  138.             errf << "No image created " << endl;
  139.         }
  140.     } else {
  141.         cdcall(cdImageDestroy,(cgmimage));
  142.         outf << "EndMF;\n";
  143.     }
  144. } 
  145.  
  146. //static float rnd(const float f,const float roundnumber)
  147. //{
  148. //    return ((long int) ( (f * roundnumber) + 0.5 )) / roundnumber;
  149. //}
  150. // static inline float RND3(const float f) { return rnd(f,1000);}
  151. static inline int RND(const float f) { return (int) (f+0.5);}
  152.  
  153. void drvCGM::print_coords()
  154. {
  155. #if 0
  156.     for (unsigned int n = 0; n < numberOfElementsInPath(); n++) {
  157.         const Point & p = pathElement(n).getPoint(0);
  158.         outf << " (" << (int)( p.x_ + x_offset) << ',' 
  159.             << (int)( p.y_ + y_offset) << ')';
  160.     }
  161. #else
  162.     bool newpath = true;
  163.     bool lastwasclosepath = false;
  164.     Point lastMoveto(0.0f,0.0f);
  165.     unsigned int lastelemnr = numberOfElementsInPath();
  166.     for (unsigned int n = 0; n < lastelemnr; n++) {
  167.     const basedrawingelement & elem = pathElement(n);
  168.     if (newpath) {
  169.             switch (currentShowType() ) {
  170.          case drvbase::stroke : 
  171.                   // draw as line
  172.             // terminate and start a new Line;
  173.                 outf << " Line " ;
  174.                   break;
  175.         case drvbase::fill :
  176.             // draw each segment as a polygon
  177.             outf << " Polygon " ;
  178.             break;
  179.         case drvbase::eofill :
  180.             // dump the whole path as a large polygon set
  181.                 outf << " PolygonSet " ;
  182.             break;
  183.         default: 
  184.             // cannot happen
  185.             errf << "unexpected ShowType " << (int) currentShowType() << " in drvcgm.cc" << endl;
  186.             exit(1);
  187.             break;
  188.         }
  189.         newpath = 0;
  190.     }
  191.     switch (elem.getType()) {
  192.     case moveto: 
  193.         if ( (n != 0) && (n != lastelemnr -1) ) {
  194.         // ignore moveto, if it's the first
  195.         // or the last part
  196.                 switch (currentShowType() ) {
  197.              case drvbase::stroke : 
  198.                       // draw as line
  199.                 // terminate and start a new Line;
  200.                 outf << " ;\n";
  201.                     outf << " Line " ;
  202.                       break;
  203.             case drvbase::fill :
  204.                 // draw each segment as a polygon
  205.                 outf << " ;\n";
  206.                 outf << " Polygon " ;
  207.                 break;
  208.             case drvbase::eofill :
  209.                 // dump the whole path as a large polygon set
  210.                 if (!lastwasclosepath) {
  211.                     outf << " closeinvis ";
  212.                 }
  213.                 break;
  214.             default: 
  215.                 // cannot happen
  216.                 errf << "unexpected ShowType " << (int) currentShowType() << " in drvcgm.cc" << endl;
  217.                 exit(1);
  218.                 break;
  219.             }
  220.         }
  221.         if ( n != lastelemnr -1 ) {
  222.             const Point & p = elem.getPoint(0);
  223.             lastMoveto=p;
  224.             outf      << RND(p.x_ + x_offset) << " " 
  225.                      << RND(p.y_ + y_offset) << " " ;
  226.         }
  227.         break;
  228.     case lineto: 
  229.         if (currentShowType() == drvbase::eofill) {
  230.             outf << "  vis ";
  231.         } else {
  232.             outf << "  ";
  233.         }
  234.         {
  235.             const Point & p = elem.getPoint(0);
  236.                 outf  << RND(p.x_ + x_offset) << " " 
  237.                      << RND(p.y_ + y_offset) << " " ;
  238.         }
  239.         break;
  240.     case closepath: 
  241.         switch (currentShowType() ) {
  242.         case drvbase::stroke : 
  243.             // draw a line to the start of the current line 
  244.             // and prepare for a new line
  245.                 outf << RND(lastMoveto.x_ + x_offset) << " " 
  246.                       << RND(lastMoveto.y_ + y_offset) << " " ;
  247.                 outf << ";\n";
  248.             newpath=1;
  249.             break;
  250.         case drvbase::fill :
  251.             // close and prepare for a new path.
  252.             outf << " ;\n";
  253.             newpath=1;
  254.             break;
  255.         case drvbase::eofill :
  256.             // normal close
  257.             outf << " closevis ";
  258.             break;
  259.         default: 
  260.             // cannot happen
  261.             errf << "unexpected ShowType " << (int) currentShowType() << " in drvcgm.cc" << endl;
  262.             exit(1);
  263.             break;
  264.             }
  265.         break;
  266.  
  267.     case curveto:
  268.         errf << "Fatal: unexpected case in drvcgm " << endl;
  269.         exit(1);
  270.         break;
  271.     default:
  272.         errf << "Fatal: unexpected case in drvcgm " << endl;
  273.         exit(1);
  274.         break;
  275.     }
  276.     outf << '\n';
  277.  
  278.     lastwasclosepath = (elem.getType() == closepath);
  279.     }
  280.     if (lastwasclosepath) {
  281. // a closepath was the last statement, so the path is really closed
  282. // except in the case of an eofilled path
  283.        if (currentShowType() == drvbase::eofill) {
  284.             outf << " ;\n" ;
  285.     }
  286.     } else {
  287. // implicit close path
  288.         if (currentShowType() == drvbase::stroke) {
  289.         outf << " ;\n";
  290.     } else {
  291.         outf << " ;\n";
  292.     }
  293.     }
  294. #endif
  295. }
  296.  
  297. void drvCGM::open_page()
  298. {
  299. // creating the image deffered to here, because we need access to the DeviceWidth/Height
  300. // but these are only available after the PostScript interpreter has finished.
  301.  
  302. // we allocate a cdImage also for the ascii backend, because we use
  303. // the color functions from the cd library
  304.     if (!cgmimage) { // no image so far
  305. //     errf  << "W " << currentDeviceWidth << " H " << currentDeviceHeight << endl;
  306.     cgmimage = cdImageCreate(RND(currentDeviceWidth), RND(currentDeviceHeight));
  307. //    cgmimage = cdImageCreate(RND(300), RND(400));
  308.     // cgmimage = cdImageCreate(imageWidth, imageHeight);
  309.     if (binary_) {
  310.         cdImageColorAllocate(cgmimage,255,255,255); // set background color
  311.         cdpoints = new cdPoint[maxElements];
  312.         if (!cdpoints) {
  313.             errf << "Could not allocate space for points" << endl;
  314.             exit(1);
  315.         }
  316.     } else {
  317.         outf << "BegMF \"picture made with pstoedit\";\n";
  318.         outf << "MFVersion 1;\n";
  319.         outf << "mfelemlist 'DRAWINGPLUS';\n";
  320.         outf << "colrprec 255;\n";
  321.         outf << "colrindexprec 127;\n";
  322.         outf << "maxcolrindex 255;\n";
  323.         outf << "fontlist " << endl;
  324.         const char * const * fontiter = CGM_ASC_Fonts;
  325.         while (*fontiter) {
  326.             outf << "'" << *fontiter << "'"; 
  327.             fontiter++;
  328.             if (*fontiter) { 
  329.                 outf << "," << endl; 
  330.             }  else {
  331.                 outf << ";" << endl; 
  332.             }
  333.         }
  334.     }
  335.     }
  336.     if (binary_ ) {
  337.         if (currentPageNumber > 1) {
  338.                  // we have to re-allocate the colors as well 
  339.                 cdcall(cdCgmNewPic,(cgmimage, 0));
  340.      
  341.                     // allocate some colors (Again!) 
  342.                     // the first color allocated is the background color 
  343.             cdImageColorAllocate(cgmimage,255,255,255); // set background color
  344.         }
  345.     } else {
  346.         outf << " BegPic \"page:  " << currentPageNumber << " \";\n";
  347.         // outf << " vdcext (0,0) (" << imageWidth << ',' << imageHeight << ");\n";
  348.         outf << " vdcext (0,0) (" << RND(currentDeviceWidth) << ',' << RND(currentDeviceHeight) << ");\n";
  349.         outf << " colrmode indexed;\n";
  350.         outf << " linewidthmode abstract;\n";
  351. //ralcgm does not like vdc        outf << " edgewidthmode vdc;\n";
  352.         outf << " edgewidthmode abstract;\n";
  353. //    outf << " ScaleMode Metric 0.1;\n";
  354.         outf << " BegPicBody;\n";
  355.         getcdcolor(1.0f,1.0f,1.0f); // write white color index
  356.             outf << " edgevis on;\n"; // needed, otherwise vis/invis has no effect
  357.     }
  358. }
  359.  
  360. void drvCGM::close_page()
  361. {
  362.     if (binary_) {
  363.     } else {
  364.         outf << " EndPic;\n";
  365.     }
  366. }
  367. unsigned int drvCGM::getcdcolor(float R, float G, float B)
  368. {
  369.     const unsigned int r = (unsigned int) (255 * R);
  370.     const unsigned int g = (unsigned int) (255 * G) ;
  371.     const unsigned int b = (unsigned int) (255 * B) ;
  372.     int cdcolor = cdImageColorExact(cgmimage,r,g,b);
  373.     if (cdcolor < 0)  {
  374.         // not stored so far
  375.         cdcolor = cdImageColorAllocate(cgmimage,r,g,b);
  376.         if (cdcolor < 0)  {
  377.             cdcolor = cdImageColorClosest(cgmimage,r,g,b);
  378.         } else {
  379.             // newly allocated color
  380.             if (! binary_) {
  381.                   outf << " colrtable " << cdcolor << ' ' 
  382.                     << cdImageRed(cgmimage,cdcolor) << ' ' 
  383.                      << cdImageGreen(cgmimage,cdcolor) << ' '
  384.                     << cdImageBlue(cgmimage,cdcolor) << ";\n";
  385.             }
  386.         }
  387.         }
  388.     return cdcolor;
  389. }
  390.  
  391. void drvCGM::show_text(const TextInfo & textinfo)
  392. {
  393.     const unsigned int cdcolor = getcdcolor(textinfo.currentR,textinfo.currentG,textinfo.currentB);
  394.     const float toRadians = 3.14159265359f / 180.0f;
  395.     const float angleInRadians = textinfo.currentFontAngle * toRadians;
  396.     const int xbase = (int) (1000*cos(angleInRadians));
  397.     const int ybase = (int) (1000*sin(angleInRadians));
  398.     const int xup=-ybase;
  399.     const int yup=xbase;
  400.  
  401.     if (binary_) {
  402.         int CGMFontNum = getFontNumber(textinfo.currentFontName.value(),CGM_CD_Fonts);
  403.         if (CGMFontNum == -1) {
  404.             CGMFontNum = 1;
  405.             errf << "replacing font: " << textinfo.currentFontName.value() << " with " << CGM_CD_Fonts[CGMFontNum] << endl;
  406.         }
  407.         // errf << "Using "  << CGMFontNum << " for " << textinfo.currentFontName.value() << endl;
  408.         const int height = RND(textinfo.currentFontSize);
  409.         cdSetTextAttrib(cgmimage,CGMFontNum,cdcolor,height);
  410.         cdSetTextOrient(cgmimage,xup,yup,xbase,ybase);
  411.         cdText(cgmimage,RND(textinfo.x),RND(textinfo.y),textinfo.thetext);
  412.     } else {
  413.         int CGMFontNum = getFontNumber(textinfo.currentFontName.value(),CGM_ASC_Fonts);
  414.         if (CGMFontNum == -1) {
  415.             CGMFontNum = 1;
  416.             errf << "replacing font: " << textinfo.currentFontName.value() << " with " << CGM_ASC_Fonts[CGMFontNum] << endl;
  417.         }
  418.         outf << "  textcolr " << cdcolor << ";\n";
  419.         outf << "  charheight " << textinfo.currentFontSize << ";\n";
  420.         outf << "  charori " << xup << ' ' << yup << ' ' << xbase << ' ' << ybase << ";\n";
  421.         outf << "  TEXT (" << RND(textinfo.x)  << ',' << RND(textinfo.y)  << ") final '" ;
  422.         {     const char * cp = textinfo.thetext;
  423.             while (*cp) {
  424.                 if (*cp == '\'') outf << '\'';
  425.                 outf << *cp;
  426.                 cp++;
  427.             }
  428.         }
  429.         outf << "';\n";
  430.     }
  431. }
  432.  
  433. void drvCGM::show_path()
  434. {
  435.     const unsigned int cdedgecolor = getcdcolor(edgeR(),edgeG(),edgeB());
  436.     const unsigned int cdfillcolor = getcdcolor(fillR(),fillG(),fillB());
  437. //    errf << "EdgeColor " << cdedgecolor << " FillColor " << cdfillcolor << endl;
  438.     if (binary_) {
  439.         for (unsigned int n = 0; n < numberOfElementsInPath(); n++) {
  440.             const Point & p = pathElement(n).getPoint(0);
  441.             cdpoints[n].x =  RND(p.x_);
  442.             cdpoints[n].y =  RND(p.y_);
  443.         }
  444.  
  445. //#ifdef __TCPLUSPLUS__
  446. //        if (verbose) errf << "core left " << coreleft() << " " << farcoreleft() << endl;
  447. //#endif
  448.         const unsigned int cdLineWidth = (unsigned int) RND(currentLineWidth());
  449.         const bool visible = (currentLineWidth() > 0.0);
  450. //        const int solid_line = 1;
  451. //        const int dashed_line = 2;
  452.         const int hollow_fill = 0;
  453.         const int solid_fill  = 1;
  454.  
  455.         const int linestyle = (int) currentLineType() + 1; // what a luck, the encoding is simple
  456.         switch ( currentShowType() ) {
  457.         case  drvbase::stroke:
  458.             cdcall(cdSetLineAttrib,(cgmimage,linestyle,cdLineWidth,cdedgecolor));
  459.             // we have to set the ShapeFillAttrib as well in case
  460.             // the drawing is done via cdPolygon
  461.             cdcall(cdSetShapeFillAttrib,(cgmimage,hollow_fill,cdfillcolor,1));
  462.             if (isPolygon()) {
  463.                 // errf << "cdPolygon " << numberOfElementsInPath()-1 << endl;
  464.                 cdcall(cdPolygon,(cgmimage,cdpoints,numberOfElementsInPath()-1));
  465.             } else {
  466.                 // errf << "cdPolyLine " << numberOfElementsInPath() << endl;
  467.                 cdcall(cdPolyLine,(cgmimage,cdpoints,numberOfElementsInPath()));
  468.             }
  469.             break;
  470.         case  drvbase::eofill:
  471.             // This may be wrong (treating fill same as eofill), but there is no other way 
  472.             // at the moment
  473.         case  drvbase::fill:
  474.             cdcall(cdSetLineAttrib,(cgmimage,linestyle,cdLineWidth,cdedgecolor));
  475.             cdcall(cdSetShapeFillAttrib,(cgmimage,solid_fill,cdfillcolor,1));
  476.             cdcall(cdSetShapeEdgeAttrib,(cgmimage,linestyle,cdLineWidth,cdedgecolor,visible));
  477.             if (isPolygon()) {
  478.                 // errf << "cdPolygon " << numberOfElementsInPath()-1 << endl;
  479.                 cdcall(cdPolygon,(cgmimage,cdpoints,numberOfElementsInPath()-1));
  480.             } else {
  481.                 // errf << "cdPolyLine " << numberOfElementsInPath() << endl;
  482.                 // draw a non closed/filled polyline as polygon
  483.                 cdcall(cdPolygon,(cgmimage,cdpoints,numberOfElementsInPath()));
  484.             }
  485.             break;
  486.         default:
  487.             errf << "Unexpected case in drvcgm.cc " << endl;
  488.             break;
  489.         }
  490.  
  491.     } else {
  492.         switch ( currentShowType() ) {
  493.         case  drvbase::stroke:
  494.             outf << " intstyle solid;\n";
  495.             break;
  496.         case  drvbase::fill:
  497.             outf << " intstyle solid;\n";
  498.             break;
  499.         case  drvbase::eofill:
  500.             outf << " intstyle solid;\n";
  501.             break;
  502.         default:
  503.             break;
  504.         }
  505.         outf << " linecolr " << cdedgecolor << ";\n";
  506.         outf << " fillcolr " << cdfillcolor << ";\n";
  507.         outf << " linewidth " <<  currentLineWidth() << ";\n";
  508.         outf << " edgewidth " <<  currentLineWidth() << ";\n";
  509.         if (currentLineWidth() >0 ) {
  510.             outf << " edgevis on;\n";
  511.         } else {
  512.             outf << " edgevis off;\n";
  513.             
  514.         }
  515.  
  516. #if 0
  517. // no subpaths
  518.         if (isPolygon) {
  519.             numberOfElementsInPath()--; // CGM does not need end=start
  520.         outf << " Polygon";
  521.         print_coords();
  522.         outf << ";\n";
  523.         numberOfElementsInPath()++; // restore old value for proper cleanup
  524.     } else { 
  525.         outf << " Line";
  526.         print_coords();
  527.         outf << ";\n";
  528.     }
  529. #else
  530.         // dump with subpaths
  531.         print_coords();
  532. #endif
  533.     }
  534. }
  535.  
  536. void drvCGM::show_rectangle(const float llx, const float lly, const float urx, const float ury)
  537. {
  538.     // just do show_polyline for a first guess
  539.     unused(&llx);
  540.     unused(&lly);
  541.     unused(&urx);
  542.     unused(&ury);
  543.     show_path();
  544. }
  545.