home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / s / stex2-18.zip / SeeTeX / Xtex / DviPageNEWS.c < prev    next >
C/C++ Source or Header  |  1992-06-25  |  9KB  |  312 lines
  1.  
  2. /*
  3.  * Copyright 1989 Dirk Grunwald
  4.  * 
  5.  * Permission to use, copy, modify, distribute, and sell this software
  6.  * and its documentation for any purpose is hereby granted without fee,
  7.  * provided that the above copyright notice appear in all copies and that
  8.  * both that copyright notice and this permission notice appear in
  9.  * supporting documentation, and that the name of Dirk Grunwald or M.I.T.
  10.  * not be used in advertising or publicity pertaining to distribution of
  11.  * the software without specific, written prior permission.  Dirk
  12.  * Grunwald and M.I.T. makes no representations about the suitability of
  13.  * this software for any purpose.  It is provided "as is" without express
  14.  * or implied warranty.
  15.  * 
  16.  * DIRK GRUNWALD AND M.I.T. DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS
  17.  * SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND
  18.  * FITNESS, IN NO EVENT SHALL M.I.T.  BE LIABLE FOR ANY SPECIAL, INDIRECT
  19.  * OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS
  20.  * OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
  21.  * OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE
  22.  * OR PERFORMANCE OF THIS SOFTWARE.
  23.  * 
  24.  * Author:
  25.  *     Dr. Dirk Grunwald
  26.  *     Dept. of Computer Science
  27.  *     Campus Box 430
  28.  *     Univ. of Colorado, Boulder
  29.  *     Boulder, CO 80309
  30.  * 
  31.  *     grunwald@colorado.edu
  32.  *     
  33.  */ 
  34.  
  35. #include <stdio.h>
  36. #include <sys/time.h>
  37. #include <X11/IntrinsicP.h>
  38. #include <X11/StringDefs.h>
  39. #include <stdio.h>
  40. #include <assert.h>
  41. #include <varargs.h>
  42. #include <math.h>
  43. #include <ctype.h>
  44. #include <sys/param.h>
  45.  
  46. #include "xtex.h"
  47. #include "dvi-simple.h"
  48. #include "DviPageP.h"
  49.  
  50. #include "DviPageNEWS.h"
  51.  
  52. void initNEWS()
  53. { 
  54. }
  55.  
  56. static Colormap xtex_colormap= (Colormap)0;
  57.  
  58. static void mangleColormap()
  59. {
  60.   Arg arg;
  61.   int xtex_screen;
  62.   int success;
  63.   int mincol = 10;
  64.   XColor xtex_color;
  65.   unsigned long planeMask;
  66.   unsigned int ncol;
  67.   unsigned long map[256];
  68.   int icol;
  69.  
  70.   
  71.   /* must modify the colormap so rasters plot in correct colors */
  72.   /* this is a big hack, arrived at by much trial and error */
  73.   xtex_screen = DefaultScreen(XtDisplay(TopLevelWidget));
  74.   xtex_colormap = DefaultColormap((XtDisplay(TopLevelWidget)),xtex_screen);
  75.  
  76.   /* first we allocate all available color cells */
  77.   ncol = 254;
  78.   do {
  79.     success = XAllocColorCells(XtDisplay(TopLevelWidget),xtex_colormap,
  80.                 0,&planeMask,0,map,ncol);
  81.     if (!success) ncol--;
  82.   } while (!success && ncol >= mincol);
  83.  
  84.   if( !success ) return;
  85.  
  86.   /* then we redefine those cells that NeWS seems to use for rasters */
  87.   /* and free up those that it does not */
  88.  
  89.   for (icol=0; icol<ncol; icol++) {
  90.      if (map[icol] >= 116 && map[icol] <= 129) {
  91.     /* a grey ramp */
  92.            xtex_color.red = (map[icol]-115)*65535/15;
  93.            xtex_color.green = (map[icol]-115)*65535/15;
  94.            xtex_color.blue = (map[icol]-115)*65535/15;
  95.            xtex_color.pixel = map[icol];
  96.     xtex_color.flags = DoRed | DoGreen | DoBlue;
  97.     XStoreColor(XtDisplay(TopLevelWidget),xtex_colormap,&xtex_color);
  98.      }else if (map[icol] == 192) {
  99.     /* a mid-grey */
  100.         xtex_color.red = 32768;
  101.         xtex_color.green = 32768;
  102.         xtex_color.blue = 32768;
  103.         xtex_color.pixel = map[icol];
  104.     xtex_color.flags = DoRed | DoGreen | DoBlue;
  105.     XStoreColor(XtDisplay(TopLevelWidget),xtex_colormap,&xtex_color);
  106.      }else if (map[icol] == 223) {
  107.     /* a lighter-grey */
  108.         xtex_color.red = 48000;
  109.         xtex_color.green = 48000;
  110.         xtex_color.blue = 48000;
  111.         xtex_color.pixel = map[icol];
  112.     xtex_color.flags = DoRed | DoGreen | DoBlue;
  113.     XStoreColor(XtDisplay(TopLevelWidget),xtex_colormap,&xtex_color);
  114.      }else if (map[icol] == 254) {
  115.     /* a white */
  116.         xtex_color.red = 65535;
  117.         xtex_color.green = 65535;
  118.         xtex_color.blue = 65535;
  119.         xtex_color.pixel = map[icol];
  120.     xtex_color.flags = DoRed | DoGreen | DoBlue;
  121.     XStoreColor(XtDisplay(TopLevelWidget),xtex_colormap,&xtex_color);
  122.      }else if (map[icol] == 255 || map[icol] == 130 || map[icol] == 131 || map[icol] == 135 || map[icol] == 136 || map[icol] == 155 || map[icol] == 156 || map[icol] == 160 || map[icol] == 161 ) {
  123.     /* lots of pixels seem to be black */
  124.         xtex_color.red = 0;
  125.         xtex_color.green = 0;
  126.         xtex_color.blue = 0;
  127.         xtex_color.pixel = map[icol];
  128.     xtex_color.flags = DoRed | DoGreen | DoBlue;
  129.     XStoreColor(XtDisplay(TopLevelWidget),xtex_colormap,&xtex_color);
  130.      }else if (map[icol] >= 0 && map[icol] <= 255) {
  131.     XFreeColors(XtDisplay(TopLevelWidget),xtex_colormap,&map[icol],1,0);
  132.      }else {
  133.     fprintf(stderr,"ignoring icol %d map %d\n",icol,map[icol]);
  134.      }
  135.   }
  136.  
  137.  
  138. }
  139.  
  140.  
  141. void
  142.   psfigBeginNEWS(w,cp,fudge_height)
  143. DviPageWidget w;
  144. char *cp;
  145. int fudge_height;
  146. {
  147.   int bbllx, bblly;
  148.   int bburx, bbury;
  149.   int width, height;
  150.   int rawWidth, rawHeight;
  151.   int haveExtensions;
  152.  
  153.   
  154.   int rx = fastFromSpHoriz(w, w -> dviPage.dviStackPointer -> h);
  155.   int ry = fastFromSpVert(w, w -> dviPage.dviStackPointer -> v);
  156.  
  157.   int maxWidth = XtScreen(w) -> width;
  158.   int mmWidth = WidthMMOfScreen( XtScreen(w) );
  159.   
  160.   double dpi = (w -> dviPage.dpiHoriz * w -> dviPage.userMag) / 1000;
  161.   double trueDpi;
  162.   double scale;
  163.   
  164.   if( xtex_colormap == (Colormap)0 ) mangleColormap();
  165.  
  166.   if ( w -> dviPage.trueDpi == 0.0 ) {
  167.     /* 72 dpi seems to be the correct value under OpenWindows */
  168.     /* also the values returned by maxWidth and mmWidth do not */
  169.     /* seem to be reliable.  So I've stuck with 72. */
  170.     /*    trueDpi = (maxWidth * 25.4) / mmWidth;*/
  171.     trueDpi = 72.;
  172.   }
  173.   else {
  174.     trueDpi = w -> dviPage.trueDpi;
  175.   }
  176.   scale = dpi / trueDpi;
  177.   
  178.   sscanf(cp, " %d %d %d %d %d %d ",
  179.      &rawWidth, &rawHeight,
  180.      &bbllx, &bblly,
  181.      &bburx, &bbury);
  182.   
  183.   width = fastFromSpHoriz(w, rawWidth);
  184.   height = fastFromSpVert(w, rawHeight);
  185.  
  186.   /*
  187.    * \epsfbox{} apparently causes a situation where the image is
  188.    * expected to grow upward, rather than down from the position on the
  189.    * page, so we fake it here
  190.    */
  191.   if( fudge_height ) ry -= height;
  192.   
  193.   /* catch up on the X side */
  194.  
  195.   XSync(XtDisplay(w),0);
  196.  
  197.   if (w -> dviPage.newsfile == NULL) {
  198.     w -> dviPage.newsfile = ps_open_PostScript();
  199.   }
  200.  
  201.   haveExtensions = w -> dviPage.newsfile != NULL;
  202.  
  203.   /* check if server has extension */
  204.   
  205.   if ( !haveExtensions ) {
  206.     XDrawLine(XtDisplay(w), XtWindow(w),
  207.           w -> dviPage.paintGC,
  208.           rx, ry, rx + width, ry );
  209.     XDrawLine(XtDisplay(w), XtWindow(w),
  210.           w -> dviPage.paintGC,
  211.           rx + width, ry, rx + width, ry + height);
  212.     XDrawLine(XtDisplay(w), XtWindow(w),
  213.           w -> dviPage.paintGC,
  214.           rx + width, ry + height, rx, ry + height);
  215.     XDrawLine(XtDisplay(w), XtWindow(w),
  216.           w -> dviPage.paintGC,
  217.           rx, ry + height, rx, ry);
  218.   }
  219.  
  220.   if ( haveExtensions ) {
  221.     /* get xid of window, then make this window the NeWS canvas */
  222.     XID xid = XtWindow(w);
  223.     NeWStoken newstoken;
  224.     int len;
  225.  
  226.     ps_token_from_xid(xid,&newstoken);
  227.     ps_setcanvas(newstoken);
  228.     
  229.     len = strlen(w -> dviPage.dpsPreamble);
  230.     psio_write(w -> dviPage.dpsPreamble, len, 1, PostScript);
  231.     psio_flush(PostScript);
  232.     
  233.     /* set origin, and flip y coordinates to agree with NeWS system */
  234.     psio_fprintf( PostScript,"\n %d %d @newsstart\n",rx,ry);
  235.     
  236.     psio_fprintf( PostScript,"\n%d %f @start\n",
  237.          w -> dviPage.pixelsPerInchHoriz,
  238.          scale);
  239.     
  240.     psio_fprintf( PostScript," %d %d %d %d %d %d  startTexFig\n",
  241.          rawWidth, rawHeight, bbllx, bblly, bburx, bbury);
  242.     
  243.     psio_flush(PostScript);
  244.   }
  245.  
  246. }
  247.  
  248. void
  249.   psfigPlotfileNEWS(w,cp)
  250. DviPageWidget w;
  251. char *cp;
  252. {
  253.   if ( w -> dviPage.newsfile )
  254.       {
  255.     while ( cp && *cp && isspace(*cp) ) cp++; /* skip white */
  256.     if (strncmp(cp,"plotfile",8) == 0 ) {
  257.       char *filename;
  258.       FILE *psfile;
  259.       
  260.       cp += 8; /* skip plotfile */
  261.       while ( cp && *cp && isspace(*cp) ) cp++; /* skip white */
  262.       filename = cp;
  263.       while ( cp && *cp && !isspace(*cp) ) cp++; /* skip non-white */
  264.       *cp = 0; /* terminate file name */
  265.       
  266.       if ( (psfile = fopen(filename, "r")) ) {
  267.         char buffer[1024];
  268.         int len;
  269.         
  270.         ps_flush_PostScript();
  271.         
  272.         for (;;) { 
  273.           len = fread(buffer, sizeof(char), 1024, psfile);
  274.           if  ( len == 0 ) break;
  275.           psio_write(buffer, len, 1, PostScript);
  276.         }      
  277.         fclose(psfile);
  278.         psio_flush(PostScript);
  279.       }
  280.     }
  281.     
  282.     psio_fprintf( PostScript,"\n endTexFig\n");
  283.     psio_flush(PostScript);
  284.     
  285.       }
  286. }
  287.  
  288. void
  289.   psfigEndNEWS(w,cp)
  290. DviPageWidget w;
  291. char *cp;
  292. {
  293.   if (w -> dviPage.newsfile ) {
  294.     psio_flush(PostScript);
  295.     ps_close_PostScript();
  296.     w -> dviPage.newsfile = NULL;
  297.   }
  298. }
  299.  
  300. int checkNEWS()
  301. {
  302.   PSFILE * newsfile;
  303.  
  304.   newsfile = ps_open_PostScript();
  305.   if( newsfile != NULL ){
  306.         ps_close_PostScript();
  307.         return 1;
  308.   }
  309.   return 0;
  310. }
  311.  
  312.