home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 3 / 3441 < prev    next >
Encoding:
Internet Message Format  |  1991-06-05  |  37.5 KB
  1. From: cristy@eplrx7.uucp (John Cristy)
  2. Newsgroups: alt.sources
  3. Subject: SUNtoPS
  4. Message-ID: <1991Jun5.020356.7315@eplrx7.uucp>
  5. Date: 5 Jun 91 02:03:56 GMT
  6.  
  7. SUN raster to Postscript... 
  8.  
  9. /*
  10. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  11. %                                                                             %
  12. %                                                                             %
  13. %                                                                             %
  14. %                 IIIII  M   M  PPPP    OOO   RRRR    TTTTT                   %
  15. %                   I    MM MM  P   P  O   O  R   R     T                     %
  16. %                   I    M M M  PPPP   O   O  RRRR      T                     %
  17. %                   I    M   M  P      O   O  R R       T                     %
  18. %                 IIIII  M   M  P       OOO   R  R      T                     % 
  19. %                                                                             %
  20. %                                                                             %
  21. %         Import SUN raster image to Encapsulated Postscript format.          %
  22. %                                                                             %
  23. %                                                                             %
  24. %                                                                             %
  25. %                           Software Design                                   %
  26. %                             John Cristy                                     %
  27. %                            January  1991                                    %
  28. %                                                                             %
  29. %                                                                             %
  30. %  Copyright 1991 E. I. Dupont de Nemours & Company                           %
  31. %                                                                             %
  32. %  Permission to use, copy, modify, distribute, and sell this software and    %
  33. %  its documentation for any purpose is hereby granted without fee,           %
  34. %  provided that the above Copyright notice appear in all copies and that     %
  35. %  both that Copyright notice and this permission notice appear in            %
  36. %  supporting documentation, and that the name of E. I. Dupont de Nemours     %
  37. %  & Company not be used in advertising or publicity pertaining to            %
  38. %  distribution of the software without specific, written prior               %
  39. %  permission.  E. I. Dupont de Nemours & Company makes no representations    %
  40. %  about the suitability of this software for any purpose.  It is provided    %
  41. %  "as is" without express or implied warranty.                               %
  42. %                                                                             %
  43. %  E. I. Dupont de Nemours & Company disclaims all warranties with regard     %
  44. %  to this software, including all implied warranties of merchantability      %
  45. %  and fitness, in no event shall E. I. Dupont de Nemours & Company be        %
  46. %  liable for any special, indirect or consequential damages or any           %
  47. %  damages whatsoever resulting from loss of use, data or profits, whether    %
  48. %  in an action of contract, negligence or other tortious action, arising     %
  49. %  out of or in connection with the use or performance of this software.      %
  50. %                                                                             %
  51. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  52. % 
  53. %  Command syntax:
  54. %
  55. %  import [-scene #] image.sun image.ps
  56. %  
  57. %  Specify 'image.sun' as '-' for standard input.  
  58. %  Specify 'image.ps' as '-' for standard output.
  59. %  
  60. %
  61. */
  62.  
  63. /*
  64.   Include declarations
  65. */
  66. #include <stdio.h>
  67. #include <ctype.h>
  68. #include <math.h>
  69. #ifdef __STDC__
  70. #include <stdlib.h>
  71. #else
  72. #ifndef vms
  73. #include <malloc.h>
  74. #include <memory.h>
  75.  
  76. extern long
  77.   strtol(),
  78.   time();
  79. #endif
  80. #endif
  81.  
  82. /*
  83.   Define declarations for the Display program.
  84. */
  85. #define False  0
  86. #define Intensity(color)  \
  87.   (((color).red*77+(color).green*150+(color).blue*29) >> 8)
  88. #define Max(x,y)  (((x) > (y)) ? (x) : (y))
  89. #define MaxColormapSize  65535
  90. #define MaxImageSize  (4096*4096)
  91. #define MaxRgb  255
  92. #define MaxRunlength  255
  93. #define Min(x,y)  (((x) < (y)) ? (x) : (y))
  94. #define MinInfoSize (1 << 18)
  95. #define True  1
  96. #define Warning(message,qualifier)  \
  97. {  \
  98.   (void) fprintf(stderr,"%s: %s",application_name,message);  \
  99.   if (qualifier != (char *) NULL)  \
  100.     (void) fprintf(stderr," (%s)",qualifier);  \
  101.   (void) fprintf(stderr,".\n");  \
  102. }
  103.  
  104. /*
  105.   Image Id's
  106. */
  107. #define UnknownId  0
  108. #define ImageMagickId  1
  109. /*
  110.   Image classes:
  111. */
  112. #define UnknownClass  0
  113. #define DirectClass  1
  114. #define PseudoClass  2
  115. /*
  116.   Image compression algorithms:
  117. */
  118. #define UnknownCompression  0
  119. #define NoCompression  1
  120. #define RunlengthEncodedCompression  2
  121. #define QEncodedCompression  3
  122.  
  123. /*
  124.   Typedef declarations for the Display program.
  125. */
  126. typedef struct _ColorPacket
  127. {
  128.   unsigned char
  129.     red,
  130.     green,
  131.     blue;
  132.  
  133.   unsigned short
  134.     index;
  135. } ColorPacket;
  136.  
  137. typedef struct _RunlengthPacket
  138. {
  139.   unsigned char
  140.     red,
  141.     green,
  142.     blue,
  143.     length;
  144.  
  145.   unsigned short
  146.     index;
  147. } RunlengthPacket;
  148.  
  149. typedef struct _Image
  150. {
  151.   FILE
  152.     *file;
  153.  
  154.   char
  155.     filename[256];
  156.  
  157.   char
  158.     *comments;
  159.  
  160.   unsigned int
  161.     id,
  162.     class,
  163.     compression,
  164.     columns,
  165.     rows;
  166.  
  167.   unsigned int
  168.     colors;
  169.  
  170.   ColorPacket
  171.     *colormap;
  172.  
  173.   unsigned int
  174.     packets,
  175.     runlength;
  176.  
  177.   RunlengthPacket
  178.     *pixels;
  179.  
  180.   unsigned int
  181.     scene;
  182. } Image;
  183.  
  184. /*
  185.   Variable declarations.
  186. */
  187. char
  188.   *application_name;
  189.  
  190. /*
  191. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  192. %                                                                             %
  193. %                                                                             %
  194. %                                                                             %
  195. %   E r r o r                                                                 %
  196. %                                                                             %
  197. %                                                                             %
  198. %                                                                             %
  199. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  200. %
  201. %  Function Error displays an error message and then terminates the program.
  202. %
  203. %  The format of the Error routine is:
  204. %
  205. %      Error(message,qualifier)
  206. %
  207. %  A description of each parameter follows:
  208. %
  209. %    o message:  Specifies the message to display before terminating the
  210. %      program.
  211. %
  212. %    o qualifier:  Specifies any qualifier to the message.
  213. %
  214. %
  215. */
  216. void Error(message,qualifier)
  217. char
  218.   *message,
  219.   *qualifier;
  220. {
  221.   (void) fprintf(stderr,"%s: %s",application_name,message); 
  222.   if (qualifier != (char *) NULL)
  223.     (void) fprintf(stderr," %s",qualifier);
  224.   (void) fprintf(stderr,".\n");
  225.   exit(1);
  226. }
  227.  
  228. /*
  229. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  230. %                                                                             %
  231. %                                                                             %
  232. %                                                                             %
  233. %  M S B F i r s t O r d e r                                                  %
  234. %                                                                             %
  235. %                                                                             %
  236. %                                                                             %
  237. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  238. %
  239. %  Function MSBFirstOrder converts a least-significant byte first buffer of
  240. %  integers to most-significant byte first.
  241. %
  242. %  The format of the MSBFirstOrder routine is:
  243. %
  244. %       MSBFirstOrder(p,length);
  245. %
  246. %  A description of each parameter follows.
  247. %
  248. %   o  p:  Specifies a pointer to a buffer of integers.
  249. %
  250. %   o  length:  Specifies the length of the buffer.
  251. %
  252. %
  253. */
  254. MSBFirstOrder(p,length)
  255. register char 
  256.   *p;
  257.  
  258. register unsigned 
  259.   length;
  260. {
  261.   register char 
  262.     c,
  263.     *q,
  264.     *sp;
  265.  
  266.   q=p+length;
  267.   while (p < q) 
  268.   {
  269.     sp=p+3;
  270.     c=(*sp);
  271.     *sp=(*p);
  272.     *p++=c;
  273.     sp=p+1;
  274.     c=(*sp);
  275.     *sp=(*p);
  276.     *p++=c;
  277.     p+=2;
  278.   }
  279. }
  280.  
  281. /*
  282. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  283. %                                                                             %
  284. %                                                                             %
  285. %                                                                             %
  286. %   P r i n t I m a g e                                                       %
  287. %                                                                             %
  288. %                                                                             %
  289. %                                                                             %
  290. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  291. %
  292. %  Function PrintImage translates a MIFF image to encapsulated Postscript for
  293. %  printing.  If the supplied geometry is null, the image is centered on the
  294. %  Postscript page.  Otherwise, the image is positioned as specified by the
  295. %  geometry.
  296. %
  297. %  The format of the PrintImage routine is:
  298. %
  299. %      status=PrintImage(image)
  300. %
  301. %  A description of each parameter follows:
  302. %
  303. %    o status: Function PrintImage return True if the image is printed.
  304. %      False is returned if the image file cannot be opened for printing.
  305. %
  306. %    o image: The address of a structure of type Image;  returned from
  307. %      ReadImage.
  308. %
  309. %
  310. */
  311. unsigned int PrintImage(image)
  312. Image
  313.   *image;
  314. {
  315. #define PageBottomMargin 92
  316. #define PageLeftMargin 16
  317. #define PageWidth  612
  318. #define PageHeight 792
  319.  
  320.   static char
  321.     *Postscript[]=
  322.     {
  323.       "%",
  324.       "% Display a color image.  The image is displayed in color on",
  325.       "% Postscript viewers or printers that support color, otherwise",
  326.       "% it is displayed as grayscale.",
  327.       "%",
  328.       "/buffer 512 string def",
  329.       "/byte 1 string def",
  330.       "/color_packet 3 string def",
  331.       "/compression 1 string def",
  332.       "/gray_packet 1 string def",
  333.       "/pixels 768 string def",
  334.       "",
  335.       "/DirectClassPacket",
  336.       "{",
  337.       "  %",
  338.       "  % Get a DirectClass packet.",
  339.       "  %",
  340.       "  % Parameters: ",
  341.       "  %   red.",
  342.       "  %   green.",
  343.       "  %   blue.",
  344.       "  %   length: number of pixels minus one of this color (optional).",
  345.       "  %",
  346.       "  currentfile color_packet readhexstring pop pop",
  347.       "  compression 0 gt",
  348.       "  {",
  349.       "    /number_pixels 3 def",
  350.       "  }",
  351.       "  {",
  352.       "    currentfile byte readhexstring pop 0 get",
  353.       "    /number_pixels exch 1 add 3 mul def",
  354.       "  } ifelse",
  355.       "  0 3 number_pixels 1 sub",
  356.       "  {",
  357.       "    pixels exch color_packet putinterval",
  358.       "  } for",
  359.       "  pixels 0 number_pixels getinterval",
  360.       "} bind def",
  361.       "",
  362.       "/DirectClassImage",
  363.       "{",
  364.       "  %",
  365.       "  % Display a DirectClass image.",
  366.       "  %",
  367.       "  systemdict /colorimage known",
  368.       "  {",
  369.       "    columns rows 8",
  370.       "    [",
  371.       "      columns 0 0",
  372.       "      rows neg 0 rows",
  373.       "    ]",
  374.       "    { DirectClassPacket } false 3 colorimage",
  375.       "  }",
  376.       "  {",
  377.       "    %",
  378.       "    % No colorimage operator;  convert to grayscale.",
  379.       "    %",
  380.       "    columns rows 8",
  381.       "    [",
  382.       "      columns 0 0",
  383.       "      rows neg 0 rows",
  384.       "    ]",
  385.       "    { GrayDirectClassPacket } image",
  386.       "  } ifelse",
  387.       "} bind def",
  388.       "",
  389.       "/GrayDirectClassPacket",
  390.       "{",
  391.       "  %",
  392.       "  % Get a DirectClass packet;  convert to grayscale.",
  393.       "  %",
  394.       "  % Parameters: ",
  395.       "  %   red",
  396.       "  %   green",
  397.       "  %   blue",
  398.       "  %   length: number of pixels minus one of this color (optional).",
  399.       "  %",
  400.       "  currentfile color_packet readhexstring pop pop",
  401.       "  color_packet 0 get 0.299 mul",
  402.       "  color_packet 1 get 0.587 mul add",
  403.       "  color_packet 2 get 0.114 mul add",
  404.       "  cvi",
  405.       "  /gray_packet exch def",
  406.       "  compression 0 gt",
  407.       "  {",
  408.       "    /number_pixels 1 def",
  409.       "  }",
  410.       "  {",
  411.       "    currentfile byte readhexstring pop 0 get",
  412.       "    /number_pixels exch 1 add def",
  413.       "  } ifelse",
  414.       "  0 1 number_pixels 1 sub",
  415.       "  {",
  416.       "    pixels exch gray_packet put",
  417.       "  } for",
  418.       "  pixels 0 number_pixels getinterval",
  419.       "} bind def",
  420.       "",
  421.       "/GrayPseudoClassPacket",
  422.       "{",
  423.       "  %",
  424.       "  % Get a PseudoClass packet;  convert to grayscale.",
  425.       "  %",
  426.       "  % Parameters: ",
  427.       "  %   index: index into the colormap.",
  428.       "  %   length: number of pixels minus one of this color (optional).",
  429.       "  %",
  430.       "  currentfile byte readhexstring pop 0 get",
  431.       "  /offset exch 3 mul def",
  432.       "  /color_packet colormap offset 3 getinterval def",
  433.       "  color_packet 0 get 0.299 mul",
  434.       "  color_packet 1 get 0.587 mul add",
  435.       "  color_packet 2 get 0.114 mul add",
  436.       "  cvi",
  437.       "  /gray_packet exch def",
  438.       "  compression 0 gt",
  439.       "  {",
  440.       "    /number_pixels 1 def",
  441.       "  }",
  442.       "  {",
  443.       "    currentfile byte readhexstring pop 0 get",
  444.       "    /number_pixels exch 1 add def",
  445.       "  } ifelse",
  446.       "  0 1 number_pixels 1 sub",
  447.       "  {",
  448.       "    pixels exch gray_packet put",
  449.       "  } for",
  450.       "  pixels 0 number_pixels getinterval",
  451.       "} bind def",
  452.       "",
  453.       "/PseudoClassPacket",
  454.       "{",
  455.       "  %",
  456.       "  % Get a PseudoClass packet.",
  457.       "  %",
  458.       "  % Parameters: ",
  459.       "  %   index: index into the colormap.",
  460.       "  %   length: number of pixels minus one of this color (optional).",
  461.       "  %",
  462.       "  %",
  463.       "  currentfile byte readhexstring pop 0 get",
  464.       "  /offset exch 3 mul def",
  465.       "  /color_packet colormap offset 3 getinterval def",
  466.       "  compression 0 gt",
  467.       "  {",
  468.       "    /number_pixels 3 def",
  469.       "  }",
  470.       "  {",
  471.       "    currentfile byte readhexstring pop 0 get",
  472.       "    /number_pixels exch 1 add 3 mul def",
  473.       "  } ifelse",
  474.       "  0 3 number_pixels 1 sub",
  475.       "  {",
  476.       "    pixels exch color_packet putinterval",
  477.       "  } for",
  478.       "  pixels 0 number_pixels getinterval",
  479.       "} bind def",
  480.       "",
  481.       "/PseudoClassImage",
  482.       "{",
  483.       "  %",
  484.       "  % Display a PseudoClass image.",
  485.       "  %",
  486.       "  % Parameters: ",
  487.       "  %   colors: number of colors in the colormap.",
  488.       "  %   colormap: red, green, blue color packets.",
  489.       "  %",
  490.       "  currentfile buffer readline pop",
  491.       "  token pop /colors exch def pop",
  492.       "  /colors colors 3 mul def",
  493.       "  /colormap colors string def",
  494.       "  currentfile colormap readhexstring pop pop",
  495.       "  systemdict /colorimage known",
  496.       "  {",
  497.       "    columns rows 8",
  498.       "    [",
  499.       "      columns 0 0",
  500.       "      rows neg 0 rows",
  501.       "    ]",
  502.       "    { PseudoClassPacket } false 3 colorimage",
  503.       "  }",
  504.       "  {",
  505.       "    %",
  506.       "    % No colorimage operator;  convert to grayscale.",
  507.       "    %",
  508.       "    columns rows 8",
  509.       "    [",
  510.       "      columns 0 0",
  511.       "      rows neg 0 rows",
  512.       "    ]",
  513.       "    { GrayPseudoClassPacket } image",
  514.       "  } ifelse",
  515.       "} bind def",
  516.       "",
  517.       "/DisplayImage",
  518.       "{",
  519.       "  %",
  520.       "  % Display a DirectClass or PseudoClass image.",
  521.       "  %",
  522.       "  % Parameters: ",
  523.       "  %   x & y translation.",
  524.       "  %   x & y scale.",
  525.       "  %   image columns & rows.",
  526.       "  %   class: 0-DirectClass or 1-PseudoClass.",
  527.       "  %   compression: 0-RunlengthEncodedCompression or 1-NoCompression.",
  528.       "  %   hex color packets.",
  529.       "  %",
  530.       "  gsave",
  531.       "  currentfile buffer readline pop",
  532.       "  token pop /x exch def",
  533.       "  token pop /y exch def pop",
  534.       "  x y translate",
  535.       "  currentfile buffer readline pop",
  536.       "  token pop /x exch def",
  537.       "  token pop /y exch def pop",
  538.       "  x y scale",
  539.       "  currentfile buffer readline pop",
  540.       "  token pop /columns exch def",
  541.       "  token pop /rows exch def pop",
  542.       "  currentfile buffer readline pop",
  543.       "  token pop /class exch def pop",
  544.       "  currentfile buffer readline pop",
  545.       "  token pop /compression exch def pop",
  546.       "  class 0 gt { PseudoClassImage } { DirectClassImage } ifelse",
  547.       "  grestore",
  548.       "  showpage",
  549.       "} bind def",
  550.       "",
  551.       "DisplayImage",
  552.       NULL
  553.     };
  554.  
  555.   char
  556.     **q;
  557.  
  558.   int
  559.     center,
  560.     x,
  561.     y;
  562.  
  563.   register RunlengthPacket
  564.     *p;
  565.  
  566.   register int
  567.     i,
  568.     j;
  569.  
  570.   unsigned int
  571.     height,
  572.     width;
  573.  
  574.   /*
  575.     Open output image file.
  576.   */
  577.   if (*image->filename == '-')
  578.     image->file=stdout;
  579.   else
  580.     image->file=fopen(image->filename,"w");
  581.   if (image->file == (FILE *) NULL)
  582.     {
  583.       (void) fprintf(stderr,"%s: unable to print image, cannot open %s.\n",
  584.         application_name,image->filename);
  585.       return(False);
  586.     }
  587.   width=image->columns;
  588.   height=image->rows;
  589.   center=True;
  590.   if (center)
  591.     {
  592.       int
  593.         delta_x,
  594.         delta_y;
  595.  
  596.       unsigned long
  597.         scale;
  598.  
  599.       /*
  600.         Center image on Postscript page.
  601.       */
  602.       if (width > (PageWidth-(2*PageLeftMargin)))
  603.         {
  604.           scale=((PageWidth-(2*PageLeftMargin)) << 14)/width;
  605.           width=(width*scale) >> 14;
  606.           height=(height*scale) >> 14;
  607.         }
  608.       if (height > (PageHeight-(2*PageBottomMargin)))
  609.         {
  610.           scale=((PageHeight-(2*PageBottomMargin)) << 14)/height;
  611.           width=(width*scale) >> 14;
  612.           height=(height*scale) >> 14;
  613.         }
  614.       delta_x=PageWidth-(width+(2*PageLeftMargin));
  615.       delta_y=PageHeight-(height+(2*PageBottomMargin));
  616.       if (delta_x >= 0)
  617.         x=delta_x/2+PageLeftMargin;
  618.       else
  619.         x=PageLeftMargin;
  620.       if (delta_y >= 0)
  621.         y=delta_y/2+PageBottomMargin;
  622.       else
  623.         y=PageBottomMargin;
  624.     }
  625.   /*
  626.     Output encapsulated Postscript header.
  627.   */
  628.   (void) fprintf(image->file,"%%!PS-Adobe-2.0 EPSF-2.0\n");
  629.   (void) fprintf(image->file,"%%%%BoundingBox: %d %d %d %d\n",x,y,x+width,
  630.     y+height);
  631.   (void) fprintf(image->file,"%%%%Creator: ImageMagick\n");
  632.   (void) fprintf(image->file,"%%%%Title: %s\n",image->filename);
  633.   (void) fprintf(image->file,"%%%%EndComments\n");
  634.   /*
  635.     Output encapsulated Postscript commands.
  636.   */
  637.   for (q=Postscript; *q; q++)
  638.     (void) fprintf(image->file,"%s\n",*q);
  639.   /*
  640.     Output image data.
  641.   */
  642.   (void) fprintf(image->file,"%d %d\n%d %d\n%d %d\n%d\n%d\n",x,y,width,height,
  643.     image->columns,image->rows,(image->class == PseudoClass),
  644.     image->compression == NoCompression);
  645.   x=0;
  646.   p=image->pixels;
  647.   switch (image->class)
  648.   {
  649.     case DirectClass:
  650.     {
  651.       switch (image->compression)
  652.       {
  653.         case RunlengthEncodedCompression:
  654.         default:
  655.         {
  656.           /*
  657.             Dump runlength-encoded DirectColor packets.
  658.           */
  659.           for (i=0; i < image->packets; i++)
  660.           {
  661.             x++;
  662.             (void) fprintf(image->file,"%02x%02x%02x%02x",p->red,p->green,
  663.               p->blue,p->length);
  664.             if (x == 9)
  665.               {
  666.                 x=0;
  667.                 (void) fprintf(image->file,"\n");
  668.               }
  669.             p++;
  670.           }
  671.           break;
  672.         }
  673.         case NoCompression:
  674.         {
  675.           /*
  676.             Dump DirectColor packets.
  677.           */
  678.           for (i=0; i < image->packets; i++)
  679.           {
  680.             for (j=0; j <= p->length; j++)
  681.             {
  682.               x++;
  683.               (void) fprintf(image->file,"%02x%02x%02x",p->red,p->green,
  684.                 p->blue);
  685.               if (x == 12)
  686.                 {
  687.                   x=0;
  688.                   (void) fprintf(image->file,"\n");
  689.                 }
  690.             }
  691.             p++;
  692.           }
  693.           break;
  694.         }
  695.       }
  696.       break;
  697.     }
  698.     case PseudoClass:
  699.     {
  700.       /*
  701.         Dump number of colors, colormap, PseudoColor packets.
  702.       */
  703.       (void) fprintf(image->file,"%d\n",image->colors);
  704.       for (i=0; i < image->colors; i++)
  705.         (void) fprintf(image->file,"%02x%02x%02x\n",image->colormap[i].red,
  706.           image->colormap[i].green,image->colormap[i].blue);
  707.       switch (image->compression)
  708.       {
  709.         case RunlengthEncodedCompression:
  710.         default:
  711.         {
  712.           for (i=0; i < image->packets; i++)
  713.           {
  714.             x++;
  715.             (void) fprintf(image->file,"%02x%02x",p->index,p->length);
  716.             if (x == 18)
  717.               {
  718.                 x=0;
  719.                 (void) fprintf(image->file,"\n");
  720.               }
  721.             p++;
  722.           }
  723.           break;
  724.         }
  725.         case NoCompression:
  726.         {
  727.           for (i=0; i < image->packets; i++)
  728.           {
  729.             for (j=0; j <= p->length; j++)
  730.             {
  731.               x++;
  732.               (void) fprintf(image->file,"%02x",p->index);
  733.               if (x == 36)
  734.                 {
  735.                   x=0;
  736.                   (void) fprintf(image->file,"\n");
  737.                 }
  738.             }
  739.             p++;
  740.           }
  741.         }
  742.         break;
  743.       }
  744.     }
  745.   }
  746.   (void) fprintf(image->file,"\n\n");
  747.   (void) fprintf(image->file,"%%%%Trailer\n");
  748.   if (image->file != stdin)
  749.     (void) fclose(image->file);
  750.   return(True);
  751. }
  752.  
  753. /*
  754. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  755. %                                                                             %
  756. %                                                                             %
  757. %                                                                             %
  758. %  R e a d D a t a                                                            %
  759. %                                                                             %
  760. %                                                                             %
  761. %                                                                             %
  762. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  763. %
  764. %  Function ReadData reads data from the image file and returns it.  If it
  765. %  cannot read the requested number of items, False is returned indicating
  766. %  an error.
  767. %
  768. %  The format of the ReadData routine is:
  769. %
  770. %      status=ReadData(data,size,number_items,file)
  771. %
  772. %  A description of each parameter follows:
  773. %
  774. %    o status:  Function ReadData returns True if all the data requested
  775. %      is obtained without error, otherwise False.
  776. %
  777. %    o data:  Specifies an area to place the information reuested from
  778. %      the file.
  779. %
  780. %    o size:  Specifies an integer representing the length of an
  781. %      individual item to be read from the file.
  782. %
  783. %    o numer_items:  Specifies an integer representing the number of items
  784. %      to read from the file.
  785. %
  786. %    o file:  Specifies a file to read the data.
  787. %
  788. %
  789. */
  790. unsigned int ReadData(data,size,number_items,file)
  791. char
  792.   *data;
  793.  
  794. int
  795.   size,
  796.   number_items;
  797.  
  798. FILE
  799.   *file;
  800. {
  801.   size*=number_items;
  802.   while (size > 0)
  803.   {
  804.     number_items=fread(data,1,size,file);
  805.     if (number_items <= 0)
  806.       return(False);
  807.     size-=number_items;
  808.     data+=number_items;
  809.   }
  810.   return(True);
  811. }
  812.  
  813. /*
  814. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  815. %                                                                             %
  816. %                                                                             %
  817. %                                                                             %
  818. %  R e a d S U N I m a g e                                                    %
  819. %                                                                             %
  820. %                                                                             %
  821. %                                                                             %
  822. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  823. %
  824. %  Function ReadSUNImage reads an image file and returns it.  It allocates 
  825. %  the memory necessary for the new Image structure and returns a pointer to 
  826. %  the new image.
  827. %
  828. %  The format of the ReadSUNImage routine is:
  829. %
  830. %      image=ReadSUNImage(filename)
  831. %
  832. %  A description of each parameter follows:
  833. %
  834. %    o image:  Function ReadSUNImage returns a pointer to the image after 
  835. %      reading.  A null image is returned if there is a a memory shortage or 
  836. %      if the image cannot be read.
  837. %
  838. %    o filename:  Specifies the name of the image to read.
  839. %
  840. %
  841. */
  842. static Image *ReadSUNImage(filename)
  843. char
  844.   *filename;
  845. {
  846. #define RMT_EQUAL_RGB  1
  847. #define RMT_NONE  0
  848. #define RMT_RAW  2
  849. #define RT_STANDARD  1
  850. #define RT_ENCODED  2
  851. #define RT_FORMAT_RGB  3
  852.  
  853.   typedef struct _Rasterfile
  854.   {
  855.     int
  856.       magic,
  857.       width,
  858.       height,
  859.       depth,
  860.       length,
  861.       type,
  862.       maptype,
  863.       maplength;
  864.   } Rasterfile;
  865.  
  866.   Image
  867.     *image;
  868.  
  869.   Rasterfile
  870.     sun_header;
  871.  
  872.   register int
  873.     bit,
  874.     i,
  875.     x,
  876.     y;
  877.  
  878.   register RunlengthPacket
  879.     *q;
  880.  
  881.   register unsigned char
  882.     *p;
  883.  
  884.   unsigned char
  885.     blue,
  886.     green,
  887.     red,
  888.     *sun_data,
  889.     *sun_pixels;
  890.  
  891.   unsigned long 
  892.     lsb_first;
  893.  
  894.   unsigned short
  895.     index;
  896.  
  897.   /*
  898.     Allocate image structure.
  899.   */
  900.   image=(Image *) malloc(sizeof(Image));
  901.   if (image == (Image *) NULL)
  902.     Error("memory allocation error",(char *) NULL);
  903.   /*
  904.     Initialize Image structure.
  905.   */
  906.   image->id=UnknownId;
  907.   image->class=DirectClass;
  908.   image->compression=RunlengthEncodedCompression;
  909.   image->columns=0;
  910.   image->rows=0;
  911.   image->packets=0;
  912.   image->colors=0;
  913.   image->scene=0;
  914.   image->colormap=(ColorPacket *) NULL;
  915.   image->pixels=(RunlengthPacket *) NULL;
  916.   image->comments=(char *) NULL;
  917.   /*
  918.     Open image file.
  919.   */
  920.   (void) strcpy(image->filename,filename);
  921.   if (*image->filename == '-')
  922.     image->file=stdin;
  923.   else
  924.     if (strcmp(image->filename+strlen(image->filename)-2,".Z") != 0)
  925.       image->file=fopen(image->filename,"r");
  926.     else
  927.       {
  928.         char
  929.           command[256];
  930.  
  931.         /*
  932.           Image file is compressed-- uncompress it.
  933.         */
  934.         (void) sprintf(command,"uncompress -c %s",image->filename);
  935.         image->file=(FILE *) popen(command,"r");
  936.       }
  937.   if (image->file == (FILE *) NULL)
  938.     Error("unable to open file",image->filename);
  939.   /*
  940.     Read raster image.
  941.   */
  942.   (void) ReadData((char *) &sun_header,1,sizeof(Rasterfile),image->file);
  943.   /*
  944.     Ensure the header byte-order is most-significant byte first.
  945.   */
  946.   lsb_first=1;
  947.   if (*(char *) &lsb_first)
  948.     MSBFirstOrder((char *) &sun_header,sizeof(sun_header));
  949.   if (sun_header.magic != 0x59a66a95)
  950.     Error("not a SUN raster,",image->filename);
  951.   switch (sun_header.maptype)
  952.   {
  953.     case RMT_NONE:
  954.     {
  955.       if (sun_header.depth < 24)
  956.         {
  957.           /*
  958.             Create linear color ramp.
  959.           */
  960.           image->colors=1 << sun_header.depth;
  961.           image->colormap=(ColorPacket *) 
  962.             malloc(image->colors*sizeof(ColorPacket));
  963.           if (image->colormap == (ColorPacket *) NULL)
  964.             Error("memory allocation error",(char *) NULL);
  965.           for (i=0; i < image->colors; i++)
  966.           {
  967.             image->colormap[i].red=(255*i)/(image->colors-1);
  968.             image->colormap[i].green=(255*i)/(image->colors-1);
  969.             image->colormap[i].blue=(255*i)/(image->colors-1);
  970.           }
  971.         }
  972.       break;
  973.     }
  974.     case RMT_EQUAL_RGB:
  975.     {
  976.       unsigned char
  977.         *sun_colormap;
  978.  
  979.       /*
  980.         Read Sun raster colormap.
  981.       */
  982.       image->colors=sun_header.maplength/3;
  983.       image->colormap=
  984.         (ColorPacket *) malloc(image->colors*sizeof(ColorPacket));
  985.       sun_colormap=(unsigned char *) 
  986.         malloc(image->colors*sizeof(unsigned char));
  987.       if ((image->colormap == (ColorPacket *) NULL) ||
  988.           (sun_colormap == (unsigned char *) NULL))
  989.         Error("memory allocation error",(char *) NULL);
  990.       (void) ReadData((char *) sun_colormap,1,(int) image->colors,image->file);
  991.       for (i=0; i < image->colors; i++)
  992.         image->colormap[i].red=sun_colormap[i];
  993.       (void) ReadData((char *) sun_colormap,1,(int) image->colors,image->file);
  994.       for (i=0; i < image->colors; i++)
  995.         image->colormap[i].green=sun_colormap[i];
  996.       (void) ReadData((char *) sun_colormap,1,(int) image->colors,image->file);
  997.       for (i=0; i < image->colors; i++)
  998.         image->colormap[i].blue=sun_colormap[i];
  999.       (void) free((char *) sun_colormap);
  1000.       break;
  1001.     }
  1002.     case RMT_RAW:
  1003.     {
  1004.       unsigned char
  1005.         *sun_colormap;
  1006.  
  1007.       /*
  1008.         Read Sun raster colormap.
  1009.       */
  1010.       sun_colormap=(unsigned char *) 
  1011.         malloc((unsigned int) sun_header.maplength*sizeof(unsigned char));
  1012.       if (sun_colormap == (unsigned char *) NULL)
  1013.         Error("memory allocation error",(char *) NULL);
  1014.       (void) ReadData((char *) sun_colormap,1,sun_header.maplength,
  1015.         image->file);
  1016.       (void) free((char *) sun_colormap);
  1017.       break;
  1018.     }
  1019.     default:
  1020.     {
  1021.       Error("colormap type is not supported",image->filename);
  1022.       break;
  1023.     }
  1024.   }
  1025.   sun_data=(unsigned char *) 
  1026.     malloc((unsigned int) sun_header.length*sizeof(unsigned char));
  1027.   if (sun_data == (unsigned char *) NULL)
  1028.     Error("memory allocation error",(char *) NULL);
  1029.   (void) ReadData((char *) sun_data,1,sun_header.length,image->file);
  1030.   sun_pixels=sun_data;
  1031.   if (sun_header.type == RT_ENCODED) 
  1032.     {
  1033.       register int
  1034.         count,
  1035.         number_pixels;
  1036.  
  1037.       register unsigned char
  1038.         byte,
  1039.         *q;
  1040.  
  1041.       /*
  1042.         Read run-length encoded raster pixels.
  1043.       */
  1044.       number_pixels=(sun_header.width+(sun_header.width % 2))*
  1045.         sun_header.height*(((sun_header.depth-1) >> 3)+1);
  1046.       sun_pixels=(unsigned char *) 
  1047.         malloc((unsigned int) number_pixels*sizeof(unsigned char));
  1048.       if (sun_pixels == (unsigned char *) NULL)
  1049.         Error("memory allocation error",(char *) NULL);
  1050.       p=sun_data;
  1051.       q=sun_pixels;
  1052.       while ((q-sun_pixels) <= number_pixels)
  1053.       {
  1054.         byte=(*p++);
  1055.         if (byte != 128)
  1056.           *q++=byte;
  1057.         else
  1058.           {
  1059.             /*
  1060.               Runlength-encoded packet: <count><byte>
  1061.             */
  1062.             count=(*p++);
  1063.             if (count > 0)
  1064.               byte=(*p++);
  1065.             while (count >= 0)
  1066.             {
  1067.               *q++=byte;
  1068.               count--;
  1069.             }
  1070.          }
  1071.       }
  1072.     (void) free((char *) sun_data);
  1073.   }
  1074.   /*
  1075.     Create image.
  1076.   */
  1077.   image->comments=(char *) malloc((unsigned int) (strlen(image->filename)+256));
  1078.   if (image->comments == (char *) NULL)
  1079.     Error("memory allocation error",(char *) NULL);
  1080.   (void) sprintf(image->comments,"\n  Imported from Sun raster image:  %s\n\0",
  1081.     image->filename);
  1082.   image->class=(sun_header.depth < 24 ? PseudoClass : DirectClass);
  1083.   image->columns=sun_header.width;
  1084.   image->rows=sun_header.height;
  1085.   image->pixels=(RunlengthPacket *) 
  1086.     malloc(image->columns*image->rows*sizeof(RunlengthPacket));
  1087.   if (image->pixels == (RunlengthPacket *) NULL)
  1088.     Error("memory allocation error",(char *) NULL);
  1089.   /*
  1090.     Convert Sun raster image to runlength-encoded packets.
  1091.   */
  1092.   p=sun_pixels;
  1093.   image->packets=0;
  1094.   q=image->pixels;
  1095.   q->length=MaxRunlength;
  1096.   if (sun_header.depth == 1)
  1097.     for (y=0; y < image->rows; y++)
  1098.     {
  1099.       /*
  1100.         Convert bitmap scanline to runlength-encoded color packets.
  1101.       */
  1102.       for (x=0; x < (image->columns >> 3); x++) 
  1103.       {
  1104.         for (bit=7; bit >= 0; bit--)
  1105.         {
  1106.           index=((*p) & (0x01 << bit) ? 0x00 : 0x01);
  1107.           red=image->colormap[index].red;
  1108.           green=image->colormap[index].green;
  1109.           blue=image->colormap[index].blue;
  1110.           if ((red == q->red) && (green == q->green) && (blue == q->blue) &&
  1111.               (q->length < MaxRunlength))
  1112.             q->length++;
  1113.           else
  1114.             {
  1115.               if (image->packets > 0)
  1116.                 q++;
  1117.               image->packets++;
  1118.               q->red=red;
  1119.               q->green=green;
  1120.               q->blue=blue;
  1121.               q->index=index;
  1122.               q->length=0;
  1123.             }
  1124.         }
  1125.         p++;
  1126.       }
  1127.       if ((image->columns % 8) != 0)
  1128.         {
  1129.           for (bit=7; bit >= (8-(image->columns % 8)); bit--)
  1130.           {
  1131.             index=((*p) & (0x01 << bit) ? 0x00 : 0x01);
  1132.             red=image->colormap[index].red;
  1133.             green=image->colormap[index].green;
  1134.             blue=image->colormap[index].blue;
  1135.             if ((red == q->red) && (green == q->green) && (blue == q->blue) &&
  1136.                 (q->length < MaxRunlength))
  1137.               q->length++;
  1138.             else
  1139.               {
  1140.                 if (image->packets > 0)
  1141.                   q++;
  1142.                 image->packets++;
  1143.                 q->red=red;
  1144.                 q->green=green;
  1145.                 q->blue=blue;
  1146.                 q->index=index;
  1147.                 q->length=0;
  1148.               }
  1149.           }
  1150.           p++;
  1151.         }
  1152.     }
  1153.   else
  1154.     if (image->class == PseudoClass)
  1155.       for (y=0; y < image->rows; y++)
  1156.       {
  1157.         /*
  1158.           Convert PseudoColor scanline to runlength-encoded color packets.
  1159.         */
  1160.         for (x=0; x < image->columns; x++) 
  1161.         {
  1162.           index=(*p++);
  1163.           red=image->colormap[index].red;
  1164.           green=image->colormap[index].green;
  1165.           blue=image->colormap[index].blue;
  1166.           if ((red == q->red) && (green == q->green) && (blue == q->blue) &&
  1167.               (q->length < MaxRunlength))
  1168.             q->length++;
  1169.           else
  1170.             {
  1171.               if (image->packets > 0)
  1172.                 q++;
  1173.               image->packets++;
  1174.               q->red=red;
  1175.               q->green=green;
  1176.               q->blue=blue;
  1177.               q->index=index;
  1178.               q->length=0;
  1179.             }
  1180.         }
  1181.         if ((image->columns % 2) != 0)
  1182.           p++;
  1183.       }
  1184.     else
  1185.       for (y=0; y < image->rows; y++)
  1186.       {
  1187.         /*
  1188.           Convert DirectColor scanline to runlength-encoded color packets.
  1189.         */
  1190.         for (x=0; x < image->columns; x++) 
  1191.         {
  1192.           if (sun_header.type == RT_STANDARD)
  1193.             {
  1194.               blue=(*p++);
  1195.               green=(*p++);
  1196.               red=(*p++);
  1197.             }
  1198.           else
  1199.             {
  1200.               red=(*p++);
  1201.               green=(*p++);
  1202.               blue=(*p++);
  1203.             }
  1204.           if (image->colors > 0)
  1205.             {
  1206.               red=image->colormap[red].red;
  1207.               green=image->colormap[green].green;
  1208.               blue=image->colormap[blue].blue;
  1209.             }
  1210.           if ((red == q->red) && (green == q->green) && (blue == q->blue) &&
  1211.               (q->length < MaxRunlength))
  1212.               q->length++;
  1213.             else
  1214.               {
  1215.                 if (image->packets > 0)
  1216.                   q++;
  1217.                 image->packets++;
  1218.                 q->red=red;
  1219.                 q->green=green;
  1220.                 q->blue=blue;
  1221.                 q->index=0;
  1222.                 q->length=0;
  1223.               }
  1224.         }
  1225.         if ((image->columns % 2) != 0)
  1226.           p++;
  1227.       }
  1228.   (void) free((char *) sun_pixels);
  1229.   if (image->file != stdin)
  1230.     if (strcmp(image->filename+strlen(image->filename)-2,".Z") != 0)
  1231.       (void) fclose(image->file);
  1232.     else
  1233.       (void) pclose(image->file);
  1234.   if (image->packets > ((image->columns*image->rows*3) >> 2))
  1235.     image->compression=NoCompression;
  1236.   image->pixels=(RunlengthPacket *)
  1237.     realloc((char *) image->pixels,image->packets*sizeof(RunlengthPacket));
  1238.   return(image);
  1239. }
  1240.  
  1241. /*
  1242. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  1243. %                                                                             %
  1244. %                                                                             %
  1245. %                                                                             %
  1246. %   U s a g e                                                                 %
  1247. %                                                                             %
  1248. %                                                                             %
  1249. %                                                                             %
  1250. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  1251. %
  1252. %  Function Usage displays the program usage;
  1253. %
  1254. %  The format of the Usage routine is:
  1255. %
  1256. %      Usage(message)
  1257. %
  1258. %  A description of each parameter follows:
  1259. %
  1260. %    message:  Specifies a specific message to display to the user.
  1261. %
  1262. */
  1263. static void Usage(message)
  1264. char
  1265.   *message;
  1266. {
  1267.   if (message != (char *) NULL)
  1268.     (void) fprintf(stderr,"Can't continue, %s\n\n",message);
  1269.   (void) fprintf(stderr,"Usage: %s [-scene #] image.sun image.ps\n\n",
  1270.     application_name);
  1271.   (void) fprintf(stderr,"Specify 'image.sun' as '-' for standard input.\n");
  1272.   (void) fprintf(stderr,"Specify 'image.ps' as '-' for standard output.\n");
  1273.   exit(1);
  1274. }
  1275.  
  1276. /*
  1277. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  1278. %                                                                             %
  1279. %                                                                             %
  1280. %                                                                             %
  1281. %  M a i n                                                                    %
  1282. %                                                                             %
  1283. %                                                                             %
  1284. %                                                                             %
  1285. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  1286. %
  1287. %
  1288. */
  1289. int main(argc,argv)
  1290. int
  1291.   argc;
  1292.    
  1293. char
  1294.   *argv[];
  1295. {
  1296.   char
  1297.     filename[256];
  1298.  
  1299.   Image
  1300.     *image;
  1301.  
  1302.   int
  1303.     i;
  1304.  
  1305.   unsigned int
  1306.     scene;
  1307.  
  1308.   /*
  1309.     Initialize program variables.
  1310.   */
  1311.   application_name=argv[0];
  1312.   i=1;
  1313.   scene=0;
  1314.   if (argc < 3)
  1315.     Usage((char *) NULL);
  1316.   /*
  1317.     Read image and convert to MIFF format.
  1318.   */
  1319.   if (strncmp(argv[i],"-scene",2) == 0)
  1320.     {
  1321.       i++;
  1322.       scene=atoi(argv[i++]);
  1323.     }
  1324.   (void) strcpy(filename,argv[i++]);
  1325.   image=ReadSUNImage(filename);
  1326.   if (image == (Image *) NULL)
  1327.     exit(1);
  1328.   (void) strcpy(image->filename,argv[i++]);
  1329.   image->scene=scene;
  1330.   (void) PrintImage(image);
  1331.   (void) fprintf(stderr,"%s => %s  %dx%d\n",filename,image->filename,
  1332.     image->columns,image->rows);
  1333.   return(False);
  1334. }
  1335. --
  1336. The UUCP Mailer
  1337.