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