home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / x / volume13 / imagemagic / part14 < prev    next >
Internet Message Format  |  1991-05-23  |  75KB
  1. Path: uunet!uunet!cs.utexas.edu!sun-barr!newstop!exodus!dupont.com!cristy
  2. From: cristy@dupont.com
  3. Newsgroups: comp.sources.x
  4. Subject: v13i030: ImageMagick - Graphics display programs, Part14/21
  5. Message-ID: <13944@exodus.Eng.Sun.COM>
  6. Date: 24 May 91 03:19:36 GMT
  7. References: <csx-13i017:imagemagic@uunet.UU.NET>
  8. Sender: news@exodus.Eng.Sun.COM
  9. Lines: 2136
  10. Approved: argv@sun.com
  11.  
  12. Submitted-by: cristy@dupont.com
  13. Posting-number: Volume 13, Issue 30
  14. Archive-name: imagemagic/part14
  15.  
  16. #!/bin/sh
  17. # this is img.14 (part 14 of ImageMagick)
  18. # do not concatenate these parts, unpack them in order with /bin/sh
  19. # file ImageMagick/filters/Imakefile continued
  20. #
  21. if test ! -r _shar_seq_.tmp; then
  22.     echo 'Please unpack part 1 first!'
  23.     exit 1
  24. fi
  25. (read Scheck
  26.  if test "$Scheck" != 14; then
  27.     echo Please unpack part "$Scheck" next!
  28.     exit 1
  29.  else
  30.     exit 0
  31.  fi
  32. ) < _shar_seq_.tmp || exit 1
  33. if test ! -f _shar_wnt_.tmp; then
  34.     echo 'x - still skipping ImageMagick/filters/Imakefile'
  35. else
  36. echo 'x - continuing file ImageMagick/filters/Imakefile'
  37. sed 's/^X//' << 'SHAR_EOF' >> 'ImageMagick/filters/Imakefile' &&
  38. EXTRA_LIBRARIES= -lX11 -lm
  39. PPM_LIBRARIES= /usr/local/lib/libppm.a /usr/local/lib/libpgm.a  \
  40. X  /usr/local/lib/libpbm.a
  41. TIFF_LIBRARIES= /usr/local/lib/libtiff.a
  42. X
  43. AVStoMIFFSources= AVStoMIFF.c
  44. AVStoMIFFObjects= AVStoMIFF.o image.o compress.o
  45. GIFtoMIFFSources= GIFtoMIFF.c
  46. GIFtoMIFFObjects= GIFtoMIFF.o image.o compress.o
  47. GRAYtoMIFFSources= GRAYtoMIFF.c
  48. GRAYtoMIFFObjects= GRAYtoMIFF.o image.o compress.o
  49. MIFFtoAVSSources= MIFFtoAVS.c
  50. MIFFtoAVSObjects= MIFFtoAVS.o image.o compress.o
  51. MIFFtoGIFSources= MIFFtoGIF.c
  52. MIFFtoGIFObjects= MIFFtoGIF.o image.o kolb.o quantize.o compress.o
  53. MIFFtoGRAYSources= MIFFtoGRAY.c
  54. MIFFtoGRAYObjects= MIFFtoGRAY.o image.o kolb.o quantize.o compress.o
  55. MIFFtoPPMSources= MIFFtoPPM.c
  56. MIFFtoPPMObjects= MIFFtoPPM.o image.o compress.o
  57. MIFFtoRGBSources= MIFFtoRGB.c
  58. MIFFtoRGBObjects= MIFFtoRGB.o image.o compress.o
  59. MIFFtoSUNSources= MIFFtoSUN.c
  60. MIFFtoSUNObjects= MIFFtoSUN.o image.o compress.o
  61. MIFFtoTIFFSources= MIFFtoTIFF.c
  62. MIFFtoTIFFObjects= MIFFtoTIFF.o image.o compress.o
  63. MIFFtoXBMSources= MIFFtoXBM.c
  64. MIFFtoXBMObjects= MIFFtoXBM.o image.o kolb.o quantize.o compress.o
  65. MIFFtoXWDSources= MIFFtoXWD.c
  66. MIFFtoXWDObjects= MIFFtoXWD.o image.o compress.o
  67. MTVtoMIFFSources= MTVtoMIFF.c
  68. MTVtoMIFFObjects= MTVtoMIFF.o image.o compress.o
  69. SUNtoMIFFSources= SUNtoMIFF.c
  70. SUNtoMIFFObjects= SUNtoMIFF.o image.o compress.o
  71. RGBtoMIFFSources= RGBtoMIFF.c
  72. RGBtoMIFFObjects= RGBtoMIFF.o image.o compress.o
  73. PPMtoMIFFSources= PPMtoMIFF.c
  74. PPMtoMIFFObjects= PPMtoMIFF.o image.o kolb.o quantize.o colors.o compress.o
  75. TIFFtoMIFFSources= TIFFtoMIFF.c
  76. TIFFtoMIFFObjects= TIFFtoMIFF.o image.o kolb.o quantize.o compress.o
  77. XXBMtoMIFFSources= XBMtoMIFF.c
  78. XXBMtoMIFFObjects= XBMtoMIFF.o image.o compress.o
  79. XXWDtoMIFFSources= XWDtoMIFF.c
  80. XXWDtoMIFFObjects= XWDtoMIFF.o image.o compress.o
  81. X
  82. PROGRAMS= AVStoMIFF MIFFtoAVS GIFtoMIFF MIFFtoGIF GRAYtoMIFF MIFFtoGRAY  \
  83. X  MTVtoMIFF RGBtoMIFF MIFFtoRGB SUNtoMIFF MIFFtoSUN XBMtoMIFF MIFFtoXBM  \
  84. X  XWDtoMIFF MIFFtoXWD PPMtoMIFF MIFFtoPPM TIFFtoMIFF MIFFtoTIFF
  85. X
  86. AllTarget($(PROGRAMS))
  87. X
  88. NormalProgramTarget(AVStoMIFF,$(AVStoMIFFObjects), , , )
  89. InstallProgram(AVStoMIFF,$(BINDIR))
  90. NormalProgramTarget(MIFFtoAVS,$(MIFFtoAVSObjects), , , )
  91. InstallProgram(MIFFtoAVS,$(BINDIR))
  92. NormalProgramTarget(GIFtoMIFF,$(GIFtoMIFFObjects), , , )
  93. InstallProgram(GIFtoMIFF,$(BINDIR))
  94. NormalProgramTarget(MIFFtoGIF,$(MIFFtoGIFObjects), , , )
  95. InstallProgram(MIFFtoGIF,$(BINDIR))
  96. NormalProgramTarget(GRAYtoMIFF,$(GRAYtoMIFFObjects), , , )
  97. InstallProgram(GRAYtoMIFF,$(BINDIR))
  98. NormalProgramTarget(MIFFtoGRAY,$(MIFFtoGRAYObjects), , , )
  99. InstallProgram(MIFFtoGRAY,$(BINDIR))
  100. NormalProgramTarget(MTVtoMIFF,$(MTVtoMIFFObjects), , , )
  101. InstallProgram(MTVtoMIFF,$(BINDIR))
  102. NormalProgramTarget(RGBtoMIFF,$(RGBtoMIFFObjects), , , )
  103. InstallProgram(RGBtoMIFF,$(BINDIR))
  104. NormalProgramTarget(MIFFtoRGB,$(MIFFtoRGBObjects), , , )
  105. InstallProgram(MIFFtoRGB,$(BINDIR))
  106. NormalProgramTarget(SUNtoMIFF,$(SUNtoMIFFObjects), , , )
  107. InstallProgram(SUNtoMIFF,$(BINDIR))
  108. NormalProgramTarget(MIFFtoSUN,$(MIFFtoSUNObjects), , , )
  109. InstallProgram(MIFFtoSUN,$(BINDIR))
  110. NormalProgramTarget(XBMtoMIFF,$(XBMtoMIFFObjects), , , )
  111. InstallProgram(XBMtoMIFF,$(BINDIR))
  112. NormalProgramTarget(MIFFtoXBM,$(MIFFtoXBMObjects), , , )
  113. InstallProgram(MIFFtoXBM,$(BINDIR))
  114. NormalProgramTarget(XWDtoMIFF,$(XWDtoMIFFObjects), , , )
  115. InstallProgram(XWDtoMIFF,$(BINDIR))
  116. NormalProgramTarget(MIFFtoXWD,$(MIFFtoXWDObjects), , , )
  117. InstallProgram(MIFFtoXWD,$(BINDIR))
  118. NormalProgramTarget(PPMtoMIFF,$(PPMtoMIFFObjects), ,$(PPM_LIBRARIES), )
  119. InstallProgram(PPMtoMIFF,$(BINDIR))
  120. NormalProgramTarget(MIFFtoPPM,$(MIFFtoPPMObjects), ,$(PPM_LIBRARIES), )
  121. InstallProgram(MIFFtoPPM,$(BINDIR))
  122. NormalProgramTarget(TIFFtoMIFF,$(TIFFtoMIFFObjects), ,$(TIFF_LIBRARIES), )
  123. InstallProgram(TIFFtoMIFF,$(BINDIR))
  124. NormalProgramTarget(MIFFtoTIFF,$(MIFFtoTIFFObjects), ,$(TIFF_LIBRARIES), )
  125. InstallProgram(MIFFtoTIFF,$(BINDIR))
  126. DependTarget()
  127. X
  128. image.o:
  129. X    $(CC) $(CFLAGS) -c ../image.c
  130. X
  131. kolb.o:
  132. X    $(CC) $(CFLAGS) -c ../kolb.c
  133. X
  134. quantize.o:
  135. X    $(CC) $(CFLAGS) -c ../quantize.c
  136. X
  137. colors.o:
  138. X    $(CC) $(CFLAGS) -c ../colors.c
  139. X
  140. compress.o:
  141. X    $(CC) $(CFLAGS) -c ../compress.c
  142. SHAR_EOF
  143. echo 'File ImageMagick/filters/Imakefile is complete' &&
  144. chmod 0755 ImageMagick/filters/Imakefile ||
  145. echo 'restore of ImageMagick/filters/Imakefile failed'
  146. Wc_c="`wc -c < 'ImageMagick/filters/Imakefile'`"
  147. test 4132 -eq "$Wc_c" ||
  148.     echo 'ImageMagick/filters/Imakefile: original size 4132, current size' "$Wc_c"
  149. rm -f _shar_wnt_.tmp
  150. fi
  151. # ============= ImageMagick/filters/MIFFtoXBM.c ==============
  152. if test -f 'ImageMagick/filters/MIFFtoXBM.c' -a X"$1" != X"-c"; then
  153.     echo 'x - skipping ImageMagick/filters/MIFFtoXBM.c (File already exists)'
  154.     rm -f _shar_wnt_.tmp
  155. else
  156. > _shar_wnt_.tmp
  157. echo 'x - extracting ImageMagick/filters/MIFFtoXBM.c (Text)'
  158. sed 's/^X//' << 'SHAR_EOF' > 'ImageMagick/filters/MIFFtoXBM.c' &&
  159. /*
  160. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  161. %                                                                             %
  162. %                                                                             %
  163. %                                                                             %
  164. %                 EEEEE  X   X  PPPP    OOO   RRRR    TTTTT                   %
  165. %                 E       X X   P   P  O   O  R   R     T                     %
  166. %                 EEE      X    PPPP   O   O  RRRR      T                     %
  167. %                 E       X X   P      O   O  R R       T                     %
  168. %                 EEEEE  X   X  P       OOO   R  R      T                     %
  169. %                                                                             %
  170. %                                                                             %
  171. %                   Export MIFF image to a X bitmap format.                   %
  172. %                                                                             %
  173. %                                                                             %
  174. %                                                                             %
  175. %                           Software Design                                   %
  176. %                             John Cristy                                     %
  177. %                            January  1991                                    %
  178. %                                                                             %
  179. %                                                                             %
  180. %  Copyright 1991 E. I. Dupont de Nemours & Company                           %
  181. %                                                                             %
  182. %  Permission to use, copy, modify, distribute, and sell this software and    %
  183. %  its documentation for any purpose is hereby granted without fee,           %
  184. %  provided that the above Copyright notice appear in all copies and that     %
  185. %  both that Copyright notice and this permission notice appear in            %
  186. %  supporting documentation, and that the name of E. I. Dupont de Nemours     %
  187. %  & Company not be used in advertising or publicity pertaining to            %
  188. %  distribution of the software without specific, written prior               %
  189. %  permission.  E. I. Dupont de Nemours & Company makes no representations    %
  190. %  about the suitability of this software for any purpose.  It is provided    %
  191. %  "as is" without express or implied warranty.                               %
  192. %                                                                             %
  193. %  E. I. Dupont de Nemours & Company disclaims all warranties with regard     %
  194. %  to this software, including all implied warranties of merchantability      %
  195. %  and fitness, in no event shall E. I. Dupont de Nemours & Company be        %
  196. %  liable for any special, indirect or consequential damages or any           %
  197. %  damages whatsoever resulting from loss of use, data or profits, whether    %
  198. %  in an action of contract, negligence or other tortious action, arising     %
  199. %  out of or in connection with the use or performance of this software.      %
  200. %                                                                             %
  201. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  202. %
  203. %  Command syntax:
  204. %
  205. %  export image.miff image.xbm
  206. %
  207. %  Specify 'image.miff' as '-' for standard input.  
  208. %  Specify 'image.xbm' as '-' for standard output.
  209. %
  210. %
  211. */
  212. X
  213. #include <string.h>
  214. #include "display.h"
  215. #include "image.h"
  216. X
  217. /*
  218. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  219. %                                                                             %
  220. %                                                                             %
  221. %                                                                             %
  222. %   E r r o r                                                                 %
  223. %                                                                             %
  224. %                                                                             %
  225. %                                                                             %
  226. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  227. %
  228. %  Function Error displays an error message and then terminates the program.
  229. %
  230. %  The format of the Error routine is:
  231. %
  232. %      Error(message,qualifier)
  233. %
  234. %  A description of each parameter follows:
  235. %
  236. %    o message:  Specifies the message to display before terminating the
  237. %      program.
  238. %
  239. %    o qualifier:  Specifies any qualifier to the message.
  240. %
  241. %
  242. */
  243. void Error(message,qualifier)
  244. char
  245. X  *message,
  246. X  *qualifier;
  247. {
  248. X  (void) fprintf(stderr,"%s: %s",application_name,message); 
  249. X  if (qualifier != (char *) NULL)
  250. X    (void) fprintf(stderr," %s",qualifier);
  251. X  (void) fprintf(stderr,".\n");
  252. X  exit(1);
  253. }
  254. X
  255. /*
  256. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  257. %                                                                             %
  258. %                                                                             %
  259. %                                                                             %
  260. %   U s a g e                                                                 %
  261. %                                                                             %
  262. %                                                                             %
  263. %                                                                             %
  264. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  265. %
  266. %  Procedure Usage displays the program usage;
  267. %
  268. %  The format of the Usage routine is:
  269. %
  270. %      Usage(message)
  271. %
  272. %  A description of each parameter follows:
  273. %
  274. %    message:  Specifies a specific message to display to the user.
  275. %
  276. */
  277. static void Usage(message)
  278. char
  279. X  *message;
  280. {
  281. X  if (message != (char *) NULL)
  282. X    (void) fprintf(stderr,"Can't continue, %s\n\n",message);
  283. X  (void) fprintf(stderr,"Usage: %s image.miff image.xbm\n\n",application_name);
  284. X  (void) fprintf(stderr,"Specify 'image.miff' as '-' for standard input.\n");
  285. X  (void) fprintf(stderr,"Specify 'image.xbm' as '-' for standard output.\n");
  286. X  exit(1);
  287. }
  288. X
  289. /*
  290. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  291. %                                                                             %
  292. %                                                                             %
  293. %                                                                             %
  294. %   W r i t e X B M I m a g e                                                 %
  295. %                                                                             %
  296. %                                                                             %
  297. %                                                                             %
  298. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  299. %
  300. %  Procedure WriteXBMImage writes an image to a file on disk in X
  301. %  bitmap format.
  302. %
  303. %  The format of the WriteXBMImage routine is:
  304. %
  305. %      WriteXBMImage(image)
  306. %
  307. %  A description of each parameter follows.
  308. %
  309. %    o image:  A pointer to a Image structure.
  310. %
  311. %
  312. */
  313. static void WriteXBMImage(image)
  314. Image
  315. X  *image;
  316. {
  317. X  char
  318. X    name[256];
  319. X
  320. X  register int
  321. X    i,
  322. X    j,
  323. X    x;
  324. X
  325. X  register char
  326. X    *q;
  327. X
  328. X  register RunlengthPacket
  329. X    *p;
  330. X
  331. X  register unsigned char
  332. X    bit,
  333. X    byte;
  334. X
  335. X  register unsigned short
  336. X    foreground_pixel;
  337. X
  338. X  unsigned int
  339. X    count;
  340. X
  341. X  /*
  342. X    Open output image file.
  343. X  */
  344. X  if (*image->filename == '-')
  345. X    image->file=stdout;
  346. X  else
  347. X    if (strcmp(image->filename+strlen(image->filename)-2,".Z") != 0)
  348. X      image->file=fopen(image->filename,"w");
  349. X    else
  350. X      {
  351. X        char
  352. X          command[256];
  353. X
  354. X        /*
  355. X          Image file is compressed-- uncompress it.
  356. X        */
  357. X        (void) sprintf(command,"compress -c > %s",image->filename);
  358. X        image->file=(FILE *) popen(command,"w");
  359. X      }
  360. X  if (image->file == (FILE *) NULL)
  361. X    Error("unable to open file",image->filename);
  362. X  /*
  363. X    Write X bitmap header.
  364. X  */
  365. X  (void) strcpy(name,image->filename);
  366. X  q=strchr(name,'.');
  367. X  if (q)
  368. X    *q=(char) NULL;
  369. X  (void) fprintf(image->file,"#define %s_width %d\n",name,image->columns);
  370. X  (void) fprintf(image->file,"#define %s_height %d\n",name,image->rows);
  371. X  (void) fprintf(image->file,"static char %s_bits[] = {\n",name);
  372. X  (void) fprintf(image->file," ");
  373. X  /*
  374. X    Convert MIFF to monochrome.
  375. X  */
  376. X  (void) GrayImage(image);
  377. X  QuantizeImage(image,2,0,True,True);
  378. X  /*
  379. X    Convert MIFF to X bitmap pixels.
  380. X  */
  381. X  p=image->pixels;
  382. X  foreground_pixel=(Intensity(image->colormap[0]) > 
  383. X    Intensity(image->colormap[1]) ? 0 : 1);
  384. X  bit=0;
  385. X  byte=0;
  386. X  count=0;
  387. X  x=0;
  388. X  (void) fprintf(image->file," ");
  389. X  for (i=0; i < image->packets; i++)
  390. X  {
  391. X    for (j=0; j <= p->length; j++)
  392. X    {
  393. X      byte>>=1;
  394. X      if (p->index == foreground_pixel)
  395. X        byte|=0x80;
  396. X      bit++;
  397. X      if (bit == 8)
  398. X        {
  399. X          /*
  400. X            Write a bitmap byte to the image file.
  401. X          */
  402. X          (void) fprintf(image->file,"0x%02x, ",~byte & 0xff);
  403. X          count++;
  404. X          if (count == 12)
  405. X            {
  406. X              (void) fprintf(image->file,"\n  ");
  407. X              count=0;
  408. X            };
  409. X          bit=0;
  410. X          byte=0;
  411. X        }
  412. X      x++;
  413. X      if (x == image->columns)
  414. X        {
  415. X          if (bit > 0)
  416. X            {
  417. X              /*
  418. X                Write a bitmap byte to the image file.
  419. X              */
  420. X              byte>>=(8-bit);
  421. X              (void) fprintf(image->file,"0x%02x, ",~byte & 0xff);
  422. X              count++;
  423. X              if (count == 12)
  424. X                {
  425. X                  (void) fprintf(image->file,"\n  ");
  426. X                  count=0;
  427. X                };
  428. X              bit=0;
  429. X              byte=0;
  430. X            };
  431. X          x=0;
  432. X        }
  433. X    }
  434. X    p++;
  435. X  }
  436. X  fprintf(image->file,"};\n");
  437. X  if (image->file != stdin)
  438. X    if (strcmp(image->filename+strlen(image->filename)-2,".Z") != 0)
  439. X      (void) fclose(image->file);
  440. X    else
  441. X      (void) pclose(image->file);
  442. }
  443. X
  444. /*
  445. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  446. %                                                                             %
  447. %                                                                             %
  448. %                                                                             %
  449. %    M a i n                                                                  %
  450. %                                                                             %
  451. %                                                                             %
  452. %                                                                             %
  453. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  454. %
  455. %
  456. */
  457. int main(argc,argv)
  458. int
  459. X  argc;
  460. X
  461. char
  462. X  *argv[];
  463. {
  464. X  Image
  465. X    *image;
  466. X
  467. X  application_name=argv[0];
  468. X  if (argc < 3)
  469. X    Usage((char *) NULL);
  470. X  image=ReadImage(argv[1]);
  471. X  if (image == (Image *) NULL)
  472. X    exit(1);
  473. X  (void) strcpy(image->filename,argv[2]);
  474. X  WriteXBMImage(image);
  475. X  (void) fprintf(stderr,"%s=> %s  %dx%d\n",argv[1],argv[2],image->columns,
  476. X    image->rows);
  477. X  return(False);
  478. }
  479. SHAR_EOF
  480. chmod 0755 ImageMagick/filters/MIFFtoXBM.c ||
  481. echo 'restore of ImageMagick/filters/MIFFtoXBM.c failed'
  482. Wc_c="`wc -c < 'ImageMagick/filters/MIFFtoXBM.c'`"
  483. test 11243 -eq "$Wc_c" ||
  484.     echo 'ImageMagick/filters/MIFFtoXBM.c: original size 11243, current size' "$Wc_c"
  485. rm -f _shar_wnt_.tmp
  486. fi
  487. # ============= ImageMagick/filters/XBMtoMIFF.c ==============
  488. if test -f 'ImageMagick/filters/XBMtoMIFF.c' -a X"$1" != X"-c"; then
  489.     echo 'x - skipping ImageMagick/filters/XBMtoMIFF.c (File already exists)'
  490.     rm -f _shar_wnt_.tmp
  491. else
  492. > _shar_wnt_.tmp
  493. echo 'x - extracting ImageMagick/filters/XBMtoMIFF.c (Text)'
  494. sed 's/^X//' << 'SHAR_EOF' > 'ImageMagick/filters/XBMtoMIFF.c' &&
  495. /*
  496. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  497. %                                                                             %
  498. %                                                                             %
  499. %                                                                             %
  500. %                 IIIII  M   M  PPPP    OOO   RRRR    TTTTT                   %
  501. %                   I    MM MM  P   P  O   O  R   R     T                     %
  502. %                   I    M M M  PPPP   O   O  RRRR      T                     %
  503. %                   I    M   M  P      O   O  R R       T                     %
  504. %                 IIIII  M   M  P       OOO   R  R      T                     % 
  505. %                                                                             %
  506. %                                                                             %
  507. %                  Import X bitmap image to a MIFF format.                    %
  508. %                                                                             %
  509. %                                                                             %
  510. %                                                                             %
  511. %                           Software Design                                   %
  512. %                             John Cristy                                     %
  513. %                            January  1991                                    %
  514. %                                                                             %
  515. %                                                                             %
  516. %  Copyright 1991 E. I. Dupont de Nemours & Company                           %
  517. %                                                                             %
  518. %  Permission to use, copy, modify, distribute, and sell this software and    %
  519. %  its documentation for any purpose is hereby granted without fee,           %
  520. %  provided that the above Copyright notice appear in all copies and that     %
  521. %  both that Copyright notice and this permission notice appear in            %
  522. %  supporting documentation, and that the name of E. I. Dupont de Nemours     %
  523. %  & Company not be used in advertising or publicity pertaining to            %
  524. %  distribution of the software without specific, written prior               %
  525. %  permission.  E. I. Dupont de Nemours & Company makes no representations    %
  526. %  about the suitability of this software for any purpose.  It is provided    %
  527. %  "as is" without express or implied warranty.                               %
  528. %                                                                             %
  529. %  E. I. Dupont de Nemours & Company disclaims all warranties with regard     %
  530. %  to this software, including all implied warranties of merchantability      %
  531. %  and fitness, in no event shall E. I. Dupont de Nemours & Company be        %
  532. %  liable for any special, indirect or consequential damages or any           %
  533. %  damages whatsoever resulting from loss of use, data or profits, whether    %
  534. %  in an action of contract, negligence or other tortious action, arising     %
  535. %  out of or in connection with the use or performance of this software.      %
  536. %                                                                             %
  537. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  538. % 
  539. %  Command syntax:
  540. %
  541. %  import [-scene #] image.xbm image.miff
  542. %  
  543. %  Specify 'image.xbm' as '-' for standard input.  
  544. %  Specify 'image.miff' as '-' for standard output.
  545. %  
  546. %
  547. */
  548. X
  549. #include <string.h>
  550. #include "display.h"
  551. #include "image.h"
  552. X
  553. /*
  554. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  555. %                                                                             %
  556. %                                                                             %
  557. %                                                                             %
  558. %   E r r o r                                                                 %
  559. %                                                                             %
  560. %                                                                             %
  561. %                                                                             %
  562. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  563. %
  564. %  Function Error displays an error message and then terminates the program.
  565. %
  566. %  The format of the Error routine is:
  567. %
  568. %      Error(message,qualifier)
  569. %
  570. %  A description of each parameter follows:
  571. %
  572. %    o message:  Specifies the message to display before terminating the
  573. %      program.
  574. %
  575. %    o qualifier:  Specifies any qualifier to the message.
  576. %
  577. %
  578. */
  579. void Error(message,qualifier)
  580. char
  581. X  *message,
  582. X  *qualifier;
  583. {
  584. X  (void) fprintf(stderr,"%s: %s",application_name,message); 
  585. X  if (qualifier != (char *) NULL)
  586. X    (void) fprintf(stderr," %s",qualifier);
  587. X  (void) fprintf(stderr,".\n");
  588. X  exit(1);
  589. }
  590. X
  591. /*
  592. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  593. %                                                                             %
  594. %                                                                             %
  595. %                                                                             %
  596. %  R e a d X B M I m a g e                                                    %
  597. %                                                                             %
  598. %                                                                             %
  599. %                                                                             %
  600. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  601. %
  602. %  Function ReadImage reads an image file and returns it.  It allocates the 
  603. %  memory necessary for the new Image structure and returns a pointer to the 
  604. %  new image.
  605. %
  606. %  The format of the ReadImage routine is:
  607. %
  608. %      image=ReadImage(filename)
  609. %
  610. %  A description of each parameter follows:
  611. %
  612. %    o image:  Function ReadImage returns a pointer to the image after 
  613. %      reading.  A null image is returned if there is a a memory shortage or 
  614. %      if the image cannot be read.
  615. %
  616. %    o filename:  Specifies the name of the image to read.
  617. %
  618. %
  619. */
  620. static Image *ReadXBMImage(filename)
  621. char
  622. X  *filename;
  623. {
  624. #define MaxLineLength  256
  625. X
  626. X  char
  627. X    data[MaxLineLength];
  628. X
  629. X  Image
  630. X    *image;
  631. X
  632. X  int
  633. X    byte;
  634. X
  635. X  register int
  636. X    x,
  637. X    y;
  638. X
  639. X  register RunlengthPacket
  640. X    *p;
  641. X
  642. X  register unsigned char
  643. X    bit,
  644. X    blue,
  645. X    green,
  646. X    red;
  647. X
  648. X  register unsigned short
  649. X    index;
  650. X
  651. X  unsigned int
  652. X    value;
  653. X
  654. X  /*
  655. X    Allocate image structure.
  656. X  */
  657. X  image=(Image *) malloc(sizeof(Image));
  658. X  if (image == (Image *) NULL)
  659. X    Error("memory allocation error",(char *) NULL);
  660. X  /*
  661. X    Initialize Image structure.
  662. X  */
  663. X  image->id=UnknownId;
  664. X  image->class=PseudoClass;
  665. X  image->compression=RunlengthEncodedCompression;
  666. X  image->columns=0;
  667. X  image->rows=0;
  668. X  image->packets=0;
  669. X  image->colors=0;
  670. X  image->scene=0;
  671. X  image->colormap=(ColorPacket *) NULL;
  672. X  image->pixels=(RunlengthPacket *) NULL;
  673. X  image->comments=(char *) NULL;
  674. X  /*
  675. X    Open image file.
  676. X  */
  677. X  (void) strcpy(image->filename,filename);
  678. X  if (*image->filename == '-')
  679. X    image->file=stdin;
  680. X  else
  681. X    if (strcmp(image->filename+strlen(image->filename)-2,".Z") != 0)
  682. X      image->file=fopen(image->filename,"r");
  683. X    else
  684. X      {
  685. X        char
  686. X          command[256];
  687. X
  688. X        /*
  689. X          Image file is compressed-- uncompress it.
  690. X        */
  691. X        (void) sprintf(command,"uncompress -c %s",image->filename);
  692. X        image->file=(FILE *) popen(command,"r");
  693. X      }
  694. X  if (image->file == (FILE *) NULL)
  695. X    Error("unable to open file",image->filename);
  696. X  /*
  697. X    Read X bitmap header.
  698. X  */
  699. X  while (!feof(image->file))
  700. X  {
  701. X    (void) fgets(data,MaxLineLength,image->file);
  702. X    if (sscanf(data,"#define %*32[a-zA-Z0-9]_width %d",&value) == 1)
  703. X      image->columns=value;
  704. X    if (sscanf(data,"#define %*32[a-zA-Z0-9]_height %d",&value) == 1)
  705. X      image->rows=value;
  706. X    if (sscanf(data,"%*[^#] char"))
  707. X      break;
  708. X  }
  709. X  if ((image->columns == 0) || (image->rows == 0))
  710. X    Error("XBM file is not in the correct format",image->filename);
  711. X  /*
  712. X    Create image.
  713. X  */
  714. X  image->pixels=(RunlengthPacket *) 
  715. X    malloc(image->columns*image->rows*sizeof(RunlengthPacket));
  716. X  if (image->pixels == (RunlengthPacket *) NULL)
  717. X    Error("memory allocation error",(char *) NULL);
  718. X  /*
  719. X    Create colormap.
  720. X  */
  721. X  image->colors=2;
  722. X  image->colormap=(ColorPacket *) malloc(image->colors*sizeof(ColorPacket));
  723. X  if (image->colormap == (ColorPacket *) NULL)
  724. X    Error("memory allocation error",(char *) NULL);
  725. X  image->colormap[0].red=0;
  726. X  image->colormap[0].green=0;
  727. X  image->colormap[0].blue=0;
  728. X  image->colormap[1].red=255;
  729. X  image->colormap[1].green=255;
  730. X  image->colormap[1].blue=255;
  731. X  /*
  732. X    Initial image comment.
  733. X  */
  734. X  image->comments=(char *) malloc((unsigned int) strlen(image->filename)+256);
  735. X  if (image->comments == (char *) NULL)
  736. X    Error("unable to allocate memory",(char *) NULL);
  737. X  (void) sprintf(image->comments,"\n  Imported from X11 bitmap file:  %s\n\0",
  738. X    image->filename);
  739. X  /*
  740. X    Convert X bitmap image to runlength-encoded packets.
  741. X  */
  742. X  image->packets=0;
  743. X  p=image->pixels;
  744. X  p->length=MaxRunlength;
  745. X  for (y=0; y < image->rows; y++)
  746. X  {
  747. X    bit=0;
  748. X    for (x=0; x < image->columns; x++)
  749. X    {
  750. X      if (bit == 0)
  751. X        (void) fscanf(image->file,"%i,",&byte);
  752. X      index=(byte & 0x01) ? 0 : 1;
  753. X      byte>>=1;
  754. X      red=image->colormap[index].red;
  755. X      green=image->colormap[index].green;
  756. X      blue=image->colormap[index].blue;
  757. X      if ((red == p->red) && (green == p->green) && (blue == p->blue) &&
  758. X          (p->length < MaxRunlength))
  759. X        p->length++;
  760. X      else
  761. X        {
  762. X          if (image->packets > 0)
  763. X            p++;
  764. X          image->packets++;
  765. X          p->red=red;
  766. X          p->green=green;
  767. X          p->blue=blue;
  768. X          p->index=index;
  769. X          p->length=0;
  770. X        }
  771. X      bit++;
  772. X      if (bit == 8)
  773. X        bit=0;
  774. X    }
  775. X  }
  776. X  if (image->file != stdin)
  777. X    if (strcmp(image->filename+strlen(image->filename)-2,".Z") != 0)
  778. X      (void) fclose(image->file);
  779. X    else
  780. X      (void) pclose(image->file);
  781. X  if (image->packets > ((image->columns*image->rows*3) >> 2))
  782. X    image->compression=NoCompression;
  783. X  image->pixels=(RunlengthPacket *)
  784. X    realloc((char *) image->pixels,image->packets*sizeof(RunlengthPacket));
  785. X  return(image);
  786. }
  787. X
  788. /*
  789. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  790. %                                                                             %
  791. %                                                                             %
  792. %                                                                             %
  793. %   U s a g e                                                                 %
  794. %                                                                             %
  795. %                                                                             %
  796. %                                                                             %
  797. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  798. %
  799. %  Function Usage displays the program usage;
  800. %
  801. %  The format of the Usage routine is:
  802. %
  803. %      Usage(message)
  804. %
  805. %  A description of each parameter follows:
  806. %
  807. %    message:  Specifies a specific message to display to the user.
  808. %
  809. */
  810. static void Usage(message)
  811. char
  812. X  *message;
  813. {
  814. X  if (message != (char *) NULL)
  815. X    (void) fprintf(stderr,"Can't continue, %s\n\n",message);
  816. X  (void) fprintf(stderr,
  817. X    "Usage: %s [-scene] width height image.xbm image.miff\n",application_name);
  818. X  (void) fprintf(stderr,"\nSpecify 'image.xbm' as '-' for standard input.\n");
  819. X  (void) fprintf(stderr,"Specify 'image.miff' as '-' for standard output.\n");
  820. X  exit(1);
  821. }
  822. X
  823. /*
  824. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  825. %                                                                             %
  826. %                                                                             %
  827. %                                                                             %
  828. %  M a i n                                                                    %
  829. %                                                                             %
  830. %                                                                             %
  831. %                                                                             %
  832. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  833. %
  834. %
  835. */
  836. int main(argc,argv)
  837. int
  838. X  argc;
  839. X   
  840. char
  841. X  *argv[];
  842. {
  843. X  char
  844. X    filename[256];
  845. X
  846. X  Image
  847. X    *image;
  848. X
  849. X  int
  850. X    i;
  851. X
  852. X  unsigned int
  853. X    scene;
  854. X
  855. X  /*
  856. X    Initialize program variables.
  857. X  */
  858. X  application_name=argv[0];
  859. X  i=1;
  860. X  scene=0;
  861. X  if (argc < 3)
  862. X    Usage((char *) NULL);
  863. X  /*
  864. X    Read image and convert to MIFF format.
  865. X  */
  866. X  if (strncmp(argv[i],"-scene",2) == 0)
  867. X    {
  868. X      i++;
  869. X      scene=atoi(argv[i++]);
  870. X    }
  871. X  (void) strcpy(filename,argv[i++]);
  872. X  image=ReadXBMImage(filename);
  873. X  if (image == (Image *) NULL)
  874. X    exit(1);
  875. X  (void) strcpy(image->filename,argv[i++]);
  876. X  image->scene=scene;
  877. X  (void) WriteImage(image);
  878. X  (void) fprintf(stderr,"%s => %s  %dx%d\n",filename,image->filename,
  879. X    image->columns,image->rows);
  880. X  DestroyImage(image);
  881. X  return(False);
  882. }
  883. SHAR_EOF
  884. chmod 0755 ImageMagick/filters/XBMtoMIFF.c ||
  885. echo 'restore of ImageMagick/filters/XBMtoMIFF.c failed'
  886. Wc_c="`wc -c < 'ImageMagick/filters/XBMtoMIFF.c'`"
  887. test 13275 -eq "$Wc_c" ||
  888.     echo 'ImageMagick/filters/XBMtoMIFF.c: original size 13275, current size' "$Wc_c"
  889. rm -f _shar_wnt_.tmp
  890. fi
  891. # ============= ImageMagick/filters/PPMtoMIFF.c ==============
  892. if test -f 'ImageMagick/filters/PPMtoMIFF.c' -a X"$1" != X"-c"; then
  893.     echo 'x - skipping ImageMagick/filters/PPMtoMIFF.c (File already exists)'
  894.     rm -f _shar_wnt_.tmp
  895. else
  896. > _shar_wnt_.tmp
  897. echo 'x - extracting ImageMagick/filters/PPMtoMIFF.c (Text)'
  898. sed 's/^X//' << 'SHAR_EOF' > 'ImageMagick/filters/PPMtoMIFF.c' &&
  899. /*
  900. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  901. %                                                                             %
  902. %                                                                             %
  903. %                                                                             %
  904. %                 IIIII  M   M  PPPP    OOO   RRRR    TTTTT                   %
  905. %                   I    MM MM  P   P  O   O  R   R     T                     %
  906. %                   I    M M M  PPPP   O   O  RRRR      T                     %
  907. %                   I    M   M  P      O   O  R R       T                     %
  908. %                 IIIII  M   M  P       OOO   R  R      T                     % 
  909. %                                                                             %
  910. %                                                                             %
  911. %                 Import PPM raster image to a MIFF format.                   %
  912. %                                                                             %
  913. %                                                                             %
  914. %                                                                             %
  915. %                           Software Design                                   %
  916. %                             John Cristy                                     %
  917. %                            January  1991                                    %
  918. %                                                                             %
  919. %                                                                             %
  920. %  Copyright 1991 E. I. Dupont de Nemours & Company                           %
  921. %                                                                             %
  922. %  Permission to use, copy, modify, distribute, and sell this software and    %
  923. %  its documentation for any purpose is hereby granted without fee,           %
  924. %  provided that the above Copyright notice appear in all copies and that     %
  925. %  both that Copyright notice and this permission notice appear in            %
  926. %  supporting documentation, and that the name of E. I. Dupont de Nemours     %
  927. %  & Company not be used in advertising or publicity pertaining to            %
  928. %  distribution of the software without specific, written prior               %
  929. %  permission.  E. I. Dupont de Nemours & Company makes no representations    %
  930. %  about the suitability of this software for any purpose.  It is provided    %
  931. %  "as is" without express or implied warranty.                               %
  932. %                                                                             %
  933. %  E. I. Dupont de Nemours & Company disclaims all warranties with regard     %
  934. %  to this software, including all implied warranties of merchantability      %
  935. %  and fitness, in no event shall E. I. Dupont de Nemours & Company be        %
  936. %  liable for any special, indirect or consequential damages or any           %
  937. %  damages whatsoever resulting from loss of use, data or profits, whether    %
  938. %  in an action of contract, negligence or other tortious action, arising     %
  939. %  out of or in connection with the use or performance of this software.      %
  940. %                                                                             %
  941. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  942. % 
  943. %  Command syntax:
  944. %
  945. %  import [-scene #] image.ppm image.miff
  946. %  
  947. %  Specify 'image.ppm' as '-' for standard input.  
  948. %  Specify 'image.miff' as '-' for standard output.
  949. %  
  950. %
  951. */
  952. X
  953. #include "display.h"
  954. #include "image.h"
  955. #include "ppm.h"
  956. X
  957. /*
  958. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  959. %                                                                             %
  960. %                                                                             %
  961. %                                                                             %
  962. %   E r r o r                                                                 %
  963. %                                                                             %
  964. %                                                                             %
  965. %                                                                             %
  966. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  967. %
  968. %  Function Error displays an error message and then terminates the program.
  969. %
  970. %  The format of the Error routine is:
  971. %
  972. %      Error(message,qualifier)
  973. %
  974. %  A description of each parameter follows:
  975. %
  976. %    o message:  Specifies the message to display before terminating the
  977. %      program.
  978. %
  979. %    o qualifier:  Specifies any qualifier to the message.
  980. %
  981. %
  982. */
  983. void Error(message,qualifier)
  984. char
  985. X  *message,
  986. X  *qualifier;
  987. {
  988. X  (void) fprintf(stderr,"%s: %s",application_name,message); 
  989. X  if (qualifier != (char *) NULL)
  990. X    (void) fprintf(stderr," %s",qualifier);
  991. X  (void) fprintf(stderr,".\n");
  992. X  exit(1);
  993. }
  994. X
  995. /*
  996. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  997. %                                                                             %
  998. %                                                                             %
  999. %                                                                             %
  1000. %  R e a d P P M I m a g e                                                    %
  1001. %                                                                             %
  1002. %                                                                             %
  1003. %                                                                             %
  1004. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  1005. %
  1006. %  Function ReadPPMImage reads an image file and returns it.  It allocates 
  1007. %  the memory necessary for the new Image structure and returns a pointer to 
  1008. %  the new image.
  1009. %
  1010. %  The format of the ReadPPMImage routine is:
  1011. %
  1012. %      image=ReadPPMImage(filename)
  1013. %
  1014. %  A description of each parameter follows:
  1015. %
  1016. %    o image:  Function ReadPPMImage returns a pointer to the image after 
  1017. %      reading.  A null image is returned if there is a a memory shortage or 
  1018. %      if the image cannot be read.
  1019. %
  1020. %    o filename:  Specifies the name of the image to read.
  1021. %
  1022. %
  1023. */
  1024. static Image *ReadPPMImage(filename)
  1025. char
  1026. X  *filename;
  1027. {
  1028. X  Image
  1029. X    *image;
  1030. X
  1031. X  int
  1032. X    format;
  1033. X
  1034. X  pixel
  1035. X    **pixels;
  1036. X
  1037. X  pixval
  1038. X    max_value;
  1039. X
  1040. X  register int
  1041. X    i;
  1042. X
  1043. X  register pixel
  1044. X    *p;
  1045. X
  1046. X  register RunlengthPacket
  1047. X    *q;
  1048. X
  1049. X  unsigned char
  1050. X    blue,
  1051. X    green,
  1052. X    red;
  1053. X
  1054. X  /*
  1055. X    Allocate image structure.
  1056. X  */
  1057. X  image=(Image *) malloc(sizeof(Image));
  1058. X  if (image == (Image *) NULL)
  1059. X    Error("memory allocation error",(char *) NULL);
  1060. X  /*
  1061. X    Initialize Image structure.
  1062. X  */
  1063. X  image->id=UnknownId;
  1064. X  image->class=DirectClass;
  1065. X  image->compression=RunlengthEncodedCompression;
  1066. X  image->columns=0;
  1067. X  image->rows=0;
  1068. X  image->packets=0;
  1069. X  image->colors=0;
  1070. X  image->scene=0;
  1071. X  image->colormap=(ColorPacket *) NULL;
  1072. X  image->pixels=(RunlengthPacket *) NULL;
  1073. X  image->comments=(char *) NULL;
  1074. X  /*
  1075. X    Open image file.
  1076. X  */
  1077. X  (void) strcpy(image->filename,filename);
  1078. X  if (*image->filename == '-')
  1079. X    image->file=stdin;
  1080. X  else
  1081. X    if (strcmp(image->filename+strlen(image->filename)-2,".Z") != 0)
  1082. X      image->file=fopen(image->filename,"r");
  1083. X    else
  1084. X      {
  1085. X        char
  1086. X          command[256];
  1087. X
  1088. X        /*
  1089. X          Image file is compressed-- uncompress it.
  1090. X        */
  1091. X        (void) sprintf(command,"uncompress -c %s",image->filename);
  1092. X        image->file=(FILE *) popen(command,"r");
  1093. X      }
  1094. X  if (image->file == (FILE *) NULL)
  1095. X    Error("unable to open file",image->filename);
  1096. X  /*
  1097. X    Read PPM image.
  1098. X  */
  1099. X  pixels=ppm_readppm(image->file,&image->columns,&image->rows,&max_value);
  1100. X  /*
  1101. X    Create image.
  1102. X  */
  1103. X  image->comments=(char *) malloc((unsigned int) (strlen(image->filename)+256));
  1104. X  if (image->comments == (char *) NULL)
  1105. X    Error("memory allocation error",(char *) NULL);
  1106. X  (void) sprintf(image->comments,
  1107. X    "\n  Imported from PPM raster image:  %s\n",image->filename);
  1108. X  image->pixels=(RunlengthPacket *) 
  1109. X    malloc(image->columns*image->rows*sizeof(RunlengthPacket));
  1110. X  if (image->pixels == (RunlengthPacket *) NULL)
  1111. X    Error("memory allocation error",(char *) NULL);
  1112. X  /*
  1113. X    Convert PPM raster image to runlength-encoded packets.
  1114. X  */
  1115. X  p=(*pixels);
  1116. X  image->packets=0;
  1117. X  q=image->pixels;
  1118. X  q->length=MaxRunlength;
  1119. X  for (i=0; i < (image->columns*image->rows); i++)
  1120. X  {
  1121. X    red=(unsigned char) ((unsigned long) PPM_GETR(*p)*MaxRgb/max_value);
  1122. X    green=(unsigned char) ((unsigned long) PPM_GETG(*p)*MaxRgb/max_value);
  1123. X    blue=(unsigned char) ((unsigned long) PPM_GETB(*p)*MaxRgb/max_value);
  1124. X    if ((red == q->red) && (green == q->green) && (blue == q->blue) &&
  1125. X        (q->length < MaxRunlength))
  1126. X      q->length++;
  1127. X    else
  1128. X      {
  1129. X        if (image->packets > 0)
  1130. X          q++;
  1131. X        image->packets++;
  1132. X        q->red=red;
  1133. X        q->green=green;
  1134. X        q->blue=blue;
  1135. X        q->index=0;
  1136. X        q->length=0;
  1137. X      }
  1138. X    p++;
  1139. X  }
  1140. X  ppm_freearray(pixels,image->rows);
  1141. X  if (image->file != stdin)
  1142. X    if (strcmp(image->filename+strlen(image->filename)-2,".Z") != 0)
  1143. X      (void) fclose(image->file);
  1144. X    else
  1145. X      (void) pclose(image->file);
  1146. X  image->colors=NumberColors(image);
  1147. X  if (image->colors <= 256)
  1148. X    QuantizeImage(image,image->colors,0,False,True);
  1149. X  if (image->packets > ((image->columns*image->rows*3) >> 2))
  1150. X    image->compression=NoCompression;
  1151. X  image->pixels=(RunlengthPacket *)
  1152. X    realloc((char *) image->pixels,image->packets*sizeof(RunlengthPacket));
  1153. X  return(image);
  1154. }
  1155. X
  1156. /*
  1157. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  1158. %                                                                             %
  1159. %                                                                             %
  1160. %                                                                             %
  1161. %   U s a g e                                                                 %
  1162. %                                                                             %
  1163. %                                                                             %
  1164. %                                                                             %
  1165. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  1166. %
  1167. %  Procedure Usage displays the program usage;
  1168. %
  1169. %  The format of the Usage routine is:
  1170. %
  1171. %      Usage(message)
  1172. %
  1173. %  A description of each parameter follows:
  1174. %
  1175. %    message:  Specifies a specific message to display to the user.
  1176. %
  1177. */
  1178. static void Usage(message)
  1179. char
  1180. X  *message;
  1181. {
  1182. X  if (message != (char *) NULL)
  1183. X    (void) fprintf(stderr,"Can't continue, %s\n\n",message);
  1184. X  (void) fprintf(stderr,"Usage: %s [-scene #] image.ppm image.miff\n",
  1185. X    application_name);
  1186. X  (void) fprintf(stderr,"\nSpecify 'image.ppm' as '-' for standard input.\n");
  1187. X  (void) fprintf(stderr,"Specify 'image.miff' as '-' for standard output.\n");
  1188. X  exit(1);
  1189. }
  1190. X
  1191. /*
  1192. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  1193. %                                                                             %
  1194. %                                                                             %
  1195. %                                                                             %
  1196. %  M a i n                                                                    %
  1197. %                                                                             %
  1198. %                                                                             %
  1199. %                                                                             %
  1200. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  1201. %
  1202. %
  1203. */
  1204. int main(argc,argv)
  1205. int
  1206. X  argc;
  1207. X   
  1208. char
  1209. X  *argv[];
  1210. {
  1211. X  char
  1212. X    filename[256];
  1213. X
  1214. X  Image
  1215. X    *image;
  1216. X
  1217. X  int
  1218. X    i;
  1219. X
  1220. X  unsigned int
  1221. X    scene;
  1222. X
  1223. X  /*
  1224. X    Initialize program variables.
  1225. X  */
  1226. X  application_name=argv[0];
  1227. X  i=1;
  1228. X  scene=0;
  1229. X  if (argc < 3)
  1230. X    Usage((char *) NULL);
  1231. X  /*
  1232. X    Read image and convert to MIFF format.
  1233. X  */
  1234. X  if (strncmp(argv[i],"-scene",2) == 0)
  1235. X    {
  1236. X      i++;
  1237. X      scene=atoi(argv[i++]);
  1238. X    }
  1239. X  (void) strcpy(filename,argv[i++]);
  1240. X  image=ReadPPMImage(filename);
  1241. X  if (image == (Image *) NULL)
  1242. X    exit(1);
  1243. X  (void) strcpy(image->filename,argv[i++]);
  1244. X  image->scene=scene;
  1245. X  (void) WriteImage(image);
  1246. X  (void) fprintf(stderr,"%s => %s  %dx%d\n",filename,image->filename,
  1247. X    image->columns,image->rows);
  1248. X  DestroyImage(image);
  1249. X  return(False);
  1250. }
  1251. SHAR_EOF
  1252. chmod 0755 ImageMagick/filters/PPMtoMIFF.c ||
  1253. echo 'restore of ImageMagick/filters/PPMtoMIFF.c failed'
  1254. Wc_c="`wc -c < 'ImageMagick/filters/PPMtoMIFF.c'`"
  1255. test 12416 -eq "$Wc_c" ||
  1256.     echo 'ImageMagick/filters/PPMtoMIFF.c: original size 12416, current size' "$Wc_c"
  1257. rm -f _shar_wnt_.tmp
  1258. fi
  1259. # ============= ImageMagick/filters/TIFFtoSUN.c ==============
  1260. if test -f 'ImageMagick/filters/TIFFtoSUN.c' -a X"$1" != X"-c"; then
  1261.     echo 'x - skipping ImageMagick/filters/TIFFtoSUN.c (File already exists)'
  1262.     rm -f _shar_wnt_.tmp
  1263. else
  1264. > _shar_wnt_.tmp
  1265. echo 'x - extracting ImageMagick/filters/TIFFtoSUN.c (Text)'
  1266. sed 's/^X//' << 'SHAR_EOF' > 'ImageMagick/filters/TIFFtoSUN.c' &&
  1267. /*
  1268. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  1269. %                                                                             %
  1270. %                                                                             %
  1271. %                                                                             %
  1272. %                 IIIII  M   M  PPPP    OOO   RRRR    TTTTT                   %
  1273. %                   I    MM MM  P   P  O   O  R   R     T                     %
  1274. %                   I    M M M  PPPP   O   O  RRRR      T                     %
  1275. %                   I    M   M  P      O   O  R R       T                     %
  1276. %                 IIIII  M   M  P       OOO   R  R      T                     % 
  1277. %                                                                             %
  1278. %                                                                             %
  1279. %                    Import TIFF image to a MIFF format.                      %
  1280. %                                                                             %
  1281. %                                                                             %
  1282. %                                                                             %
  1283. %                           Software Design                                   %
  1284. %                             John Cristy                                     %
  1285. %                            January  1991                                    %
  1286. %                                                                             %
  1287. %                                                                             %
  1288. %  Copyright 1991 E. I. Dupont de Nemours & Company                           %
  1289. %                                                                             %
  1290. %  Permission to use, copy, modify, distribute, and sell this software and    %
  1291. %  its documentation for any purpose is hereby granted without fee,           %
  1292. %  provided that the above Copyright notice appear in all copies and that     %
  1293. %  both that Copyright notice and this permission notice appear in            %
  1294. %  supporting documentation, and that the name of E. I. Dupont de Nemours     %
  1295. %  & Company not be used in advertising or publicity pertaining to            %
  1296. %  distribution of the software without specific, written prior               %
  1297. %  permission.  E. I. Dupont de Nemours & Company makes no representations    %
  1298. %  about the suitability of this software for any purpose.  It is provided    %
  1299. %  "as is" without express or implied warranty.                               %
  1300. %                                                                             %
  1301. %  E. I. Dupont de Nemours & Company disclaims all warranties with regard     %
  1302. %  to this software, including all implied warranties of merchantability      %
  1303. %  and fitness, in no event shall E. I. Dupont de Nemours & Company be        %
  1304. %  liable for any special, indirect or consequential damages or any           %
  1305. %  damages whatsoever resulting from loss of use, data or profits, whether    %
  1306. %  in an action of contract, negligence or other tortious action, arising     %
  1307. %  out of or in connection with the use or performance of this software.      %
  1308. %                                                                             %
  1309. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  1310. % 
  1311. %  Command syntax:
  1312. %
  1313. %  import [-scene #] image.tiff image.miff
  1314. %  
  1315. %  Specify 'image.tiff' as '-' for standard input.  
  1316. %  Specify 'image.miff' as '-' for standard output.
  1317. % 
  1318. %
  1319. */
  1320. X
  1321. #include <string.h>
  1322. #include "display.h"
  1323. #include "image.h"
  1324. X
  1325. /*
  1326. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  1327. %                                                                             %
  1328. %                                                                             %
  1329. %                                                                             %
  1330. %   E r r o r                                                                 %
  1331. %                                                                             %
  1332. %                                                                             %
  1333. %                                                                             %
  1334. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  1335. %
  1336. %  Function Error displays an error message and then terminates the program.
  1337. %
  1338. %  The format of the Error routine is:
  1339. %
  1340. %      Error(message,qualifier)
  1341. %
  1342. %  A description of each parameter follows:
  1343. %
  1344. %    o message:  Specifies the message to display before terminating the
  1345. %      program.
  1346. %
  1347. %    o qualifier:  Specifies any qualifier to the message.
  1348. %
  1349. %
  1350. */
  1351. void Error(message,qualifier)
  1352. char
  1353. X  *message,
  1354. X  *qualifier;
  1355. {
  1356. X  (void) fprintf(stderr,"%s: %s",application_name,message); 
  1357. X  if (qualifier != (char *) NULL)
  1358. X    (void) fprintf(stderr," %s",qualifier);
  1359. X  (void) fprintf(stderr,".\n");
  1360. X  exit(1);
  1361. }
  1362. X
  1363. /*
  1364. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  1365. %                                                                             %
  1366. %                                                                             %
  1367. %                                                                             %
  1368. %  M S B F i r s t O r d e r                                                  %
  1369. %                                                                             %
  1370. %                                                                             %
  1371. %                                                                             %
  1372. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  1373. %
  1374. %  Function MSBFirstOrder converts a least-significant byte first buffer of
  1375. %  integers to most-significant byte first.
  1376. %
  1377. %  The format of the MSBFirstOrder routine is:
  1378. %
  1379. %       MSBFirstOrder(p,length);
  1380. %
  1381. %  A description of each parameter follows.
  1382. %
  1383. %   o  p:  Specifies a pointer to a buffer of integers.
  1384. %
  1385. %   o  length:  Specifies the length of the buffer.
  1386. %
  1387. %
  1388. */
  1389. MSBFirstOrder(p,length)
  1390. register char 
  1391. X  *p;
  1392. X
  1393. register unsigned 
  1394. X  length;
  1395. {
  1396. X  register char 
  1397. X    c,
  1398. X    *q,
  1399. X    *sp;
  1400. X
  1401. X  q=p+length;
  1402. X  while (p < q) 
  1403. X  {
  1404. X    sp=p+3;
  1405. X    c=(*sp);
  1406. X    *sp=(*p);
  1407. X    *p++=c;
  1408. X    sp=p+1;
  1409. X    c=(*sp);
  1410. X    *sp=(*p);
  1411. X    *p++=c;
  1412. X    p+=2;
  1413. X  }
  1414. }
  1415. X
  1416. /*
  1417. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  1418. %                                                                             %
  1419. %                                                                             %
  1420. %                                                                             %
  1421. %  R e a d T i f f I m a g e                                                  %
  1422. %                                                                             %
  1423. %                                                                             %
  1424. %                                                                             %
  1425. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  1426. %
  1427. %  Function ReadTiffImage reads an image file and returns it.  It allocates the 
  1428. %  memory necessary for the new Image structure and returns a pointer to the 
  1429. %  new image.
  1430. %
  1431. %  The format of the ReadTiffImage routine is:
  1432. %
  1433. %      image=ReadTiffImage(filename)
  1434. %
  1435. %  A description of each parameter follows:
  1436. %
  1437. %    o image:  Function ReadTiffImage returns a pointer to the image after 
  1438. %      reading.  A null image is returned if there is a a memory shortage or 
  1439. %      if the image cannot be read.
  1440. %
  1441. %    o filename:  Specifies the name of the image to read.
  1442. %
  1443. %    o  verbose:  A value greater than zero prints detailed information about 
  1444. %       the image.
  1445. %
  1446. %
  1447. */
  1448. static Image *ReadTiffImage(filename,verbose)
  1449. char
  1450. X  *filename;
  1451. X
  1452. unsigned int
  1453. X  verbose;
  1454. {
  1455. #include <tiff.h>
  1456. #include <tiffio.h>
  1457. X
  1458. X  Image
  1459. X    *image;
  1460. X
  1461. X  register int
  1462. X    i;
  1463. X
  1464. X  register RunlengthPacket
  1465. X    *q;
  1466. X
  1467. X  register unsigned char
  1468. X    *p;
  1469. X
  1470. X  register unsigned int 
  1471. X    x,
  1472. X    y;
  1473. X
  1474. X  register unsigned short
  1475. X    index;
  1476. X
  1477. X  TIFF
  1478. X    *file;
  1479. X
  1480. X  unsigned char
  1481. X    blue,
  1482. X    green,
  1483. X    red,
  1484. X    *scanline;
  1485. X
  1486. X  unsigned short
  1487. X    bits_per_sample,
  1488. X    fill_order,
  1489. X    image_length,
  1490. X    image_width,
  1491. X    photometric,
  1492. X    planar_configuration,
  1493. X    samples_per_pixel;
  1494. X
  1495. X  /*
  1496. X    Allocate image structure.
  1497. X  */
  1498. X  image=(Image *) malloc(sizeof(Image));
  1499. X  if (image == (Image *) NULL)
  1500. X    Error("unable to allocate memory",(char *) NULL);
  1501. X  /*
  1502. X    Initialize Image structure.
  1503. X  */
  1504. X  image->id=UnknownId;
  1505. X  image->class=DirectClass;
  1506. X  image->compression=RunlengthEncodedCompression;
  1507. X  image->columns=0;
  1508. X  image->rows=0;
  1509. X  image->packets=0;
  1510. X  image->colors=0;
  1511. X  image->scene=0;
  1512. X  image->colormap=(ColorPacket *) NULL;
  1513. X  image->pixels=(RunlengthPacket *) NULL;
  1514. X  image->comments=(char *) NULL;
  1515. X  /*
  1516. X    Open TIFF image file.
  1517. X  */
  1518. X  (void) strcpy(image->filename,filename);
  1519. X  file=TIFFOpen(image->filename,"r"); 
  1520. X  if (file == (TIFF *) NULL)
  1521. X    exit(1);
  1522. X  if (verbose)
  1523. X    TIFFPrintDirectory(file,stderr,False,False,False);
  1524. X  /*
  1525. X    Verify this image is acceptable.
  1526. X  */
  1527. X  if (!TIFFGetField(file,TIFFTAG_BITSPERSAMPLE,&bits_per_sample))
  1528. X    bits_per_sample=1;
  1529. X  if (!TIFFGetField(file,TIFFTAG_PHOTOMETRIC,&photometric))
  1530. X    photometric=PHOTOMETRIC_PALETTE;
  1531. X  if ((bits_per_sample > 8) && (photometric != PHOTOMETRIC_RGB))
  1532. X    Error("image is more than 8-bits per sample",(char *) NULL);
  1533. X  if (!TIFFGetField(file,TIFFTAG_SAMPLESPERPIXEL,&samples_per_pixel))
  1534. X    samples_per_pixel=1;
  1535. X  if ((samples_per_pixel != 1) && (samples_per_pixel != 3) &&
  1536. X      (samples_per_pixel != 4))
  1537. X    Error("samples per pixel must be 1, 3, or 4",(char *) NULL);
  1538. X  /*
  1539. X    Initialize image attributes.
  1540. X  */
  1541. X  if (!TIFFGetField(file,TIFFTAG_PHOTOMETRIC,&photometric))
  1542. X    photometric=PHOTOMETRIC_PALETTE;
  1543. X  TIFFGetField(file,TIFFTAG_IMAGEWIDTH,&image_width);
  1544. X  TIFFGetField(file,TIFFTAG_IMAGELENGTH,&image_length);
  1545. X  image->comments=(char *) malloc((unsigned int) (strlen(image->filename)+256));
  1546. X  if (image->comments == (char *) NULL)
  1547. X    Error("unable to allocate memory",(char *) NULL);
  1548. X  (void) sprintf(image->comments,"\n  Imported from TIFF image %s.\n\0",
  1549. X    image->filename);
  1550. X  image->class=(photometric == PHOTOMETRIC_RGB ? DirectClass : PseudoClass);
  1551. X  image->columns=image_width;
  1552. X  image->rows=image_length;
  1553. X  image->colors=1 << bits_per_sample;
  1554. X  if (image->class == PseudoClass)
  1555. X    {
  1556. X      /*
  1557. X        Prepare for pseudo-color image.
  1558. X      */
  1559. X      image->colormap=(ColorPacket *) malloc(image->colors*sizeof(ColorPacket));
  1560. X      if (image->colormap == (ColorPacket *) NULL)
  1561. X        Error("unable to allocate memory",(char *) NULL);
  1562. X      /*
  1563. X        Create colormap.
  1564. X      */
  1565. X      switch (photometric)
  1566. X      {
  1567. X        case PHOTOMETRIC_MINISBLACK:
  1568. X        {
  1569. X          for (i=0; i < image->colors; i++)
  1570. X          {
  1571. X            image->colormap[i].red=(255*i)/(image->colors-1);
  1572. X            image->colormap[i].green=(255*i)/(image->colors-1);
  1573. X            image->colormap[i].blue=(255*i)/(image->colors-1);
  1574. X          }
  1575. X          break;
  1576. X        }
  1577. X        case PHOTOMETRIC_MINISWHITE:
  1578. X        {
  1579. X          for (i=0; i < image->colors; i++)
  1580. X          {
  1581. X            image->colormap[i].red=255-(255*i)/(image->colors-1);
  1582. X            image->colormap[i].green=255-(255*i)/(image->colors-1);
  1583. X            image->colormap[i].blue=255-(255*i)/(image->colors-1);
  1584. X          }
  1585. X          break;
  1586. X        }
  1587. X        case PHOTOMETRIC_PALETTE:
  1588. X        {
  1589. X          unsigned short
  1590. X            *blue_colormap,
  1591. X            *green_colormap,
  1592. X            *red_colormap;
  1593. X
  1594. X          TIFFGetField(file,TIFFTAG_COLORMAP,&red_colormap,&green_colormap,
  1595. X            &blue_colormap);
  1596. X          for (i=0; i < image->colors; i++)
  1597. X          {
  1598. X            image->colormap[i].red=red_colormap[i] >> 8;
  1599. X            image->colormap[i].green=green_colormap[i] >> 8;
  1600. X            image->colormap[i].blue=blue_colormap[i] >> 8;
  1601. X          }
  1602. X          break;
  1603. X        }
  1604. X        default:
  1605. X          break;
  1606. X      }
  1607. X    }
  1608. X  /*
  1609. X    Allocate memory for the image and scanline buffer.
  1610. X  */
  1611. X  image->pixels=(RunlengthPacket *) 
  1612. X    malloc(image->columns*image->rows*sizeof(RunlengthPacket));
  1613. X  TIFFGetField(file,TIFFTAG_PLANARCONFIG,&planar_configuration);
  1614. X  if (planar_configuration == PLANARCONFIG_CONTIG)
  1615. X    scanline=(unsigned char *) malloc((unsigned int) TIFFScanlineSize(file));
  1616. X  else
  1617. X    scanline=(unsigned char *) 
  1618. X      malloc((unsigned int) samples_per_pixel*TIFFScanlineSize(file));
  1619. X  if ((image->pixels == (RunlengthPacket *) NULL) ||
  1620. X      (scanline == (unsigned char *) NULL))
  1621. X    Error("unable to allocate memory",(char *) NULL);
  1622. X  /*
  1623. X    Read the TIFF image and write to image pixel buffer.
  1624. X  */
  1625. X  if (!TIFFGetField(file,TIFFTAG_FILLORDER,&fill_order))
  1626. X    fill_order=FILLORDER_MSB2LSB;
  1627. X  image->packets=0;
  1628. X  q=image->pixels;
  1629. X  q->length=MaxRunlength;
  1630. X  for (y=0; y < image->rows; y++)
  1631. X  {
  1632. X    p=scanline;
  1633. X    if (TIFFReadScanline(file,p,y,0) < 0)
  1634. X      Error("unable to read TIFF scanline",(char *) NULL);
  1635. X    if (planar_configuration != PLANARCONFIG_CONTIG)
  1636. X      for (i=1; i < samples_per_pixel; i++)
  1637. X        if (TIFFReadScanline(file,p+i*TIFFScanlineSize(file),y,i) < 0)
  1638. X          Error("unable to read TIFF scanline",(char *) NULL);
  1639. X    switch (photometric)
  1640. X    {
  1641. X      case PHOTOMETRIC_RGB:
  1642. X      {
  1643. X        switch (bits_per_sample)
  1644. X        {
  1645. X          case 8:
  1646. X          default:
  1647. X          {
  1648. X            /*
  1649. X              Assumes Max Sample Value is 255.
  1650. X            */
  1651. X            for (x=0; x < image->columns; x++)
  1652. X            {
  1653. X              if (planar_configuration == PLANARCONFIG_CONTIG)
  1654. X                {
  1655. X                  red=(*p++);
  1656. X                  green=(*p++);
  1657. X                  blue=(*p++);
  1658. X                }
  1659. X              else
  1660. X                {
  1661. X                  red=(*p);
  1662. X                  green=(*(p+TIFFScanlineSize(file)));
  1663. X                  blue=(*(p+2*TIFFScanlineSize(file)));
  1664. X                  p++;
  1665. X                }
  1666. X              if ((red == q->red) && (green == q->green) && 
  1667. X                  (blue == q->blue) && (q->length < MaxRunlength))
  1668. X                q->length++;
  1669. X              else
  1670. X                {
  1671. X                  if (image->packets > 0)
  1672. X                    q++;
  1673. X                  image->packets++;
  1674. X                  q->red=red;
  1675. X                  q->green=green;
  1676. X                  q->blue=blue;
  1677. X                  q->index=0;
  1678. X                  q->length=0;
  1679. X                }
  1680. X              if (samples_per_pixel == 4)
  1681. X                p++;
  1682. X            }
  1683. X            break;
  1684. X          }
  1685. X          case 16:
  1686. X          {
  1687. X            register unsigned short
  1688. X              *p;
  1689. X
  1690. X            /*
  1691. X              Assumes Max Sample Value is 2047.
  1692. X            */
  1693. X            p=(unsigned short *) scanline;
  1694. X            for (x=0; x < image->columns; x++)
  1695. X            {
  1696. X              if (planar_configuration == PLANARCONFIG_CONTIG)
  1697. X                {
  1698. X                  red=(*p++ >> 3);
  1699. X                  green=(*p++ >> 3);
  1700. X                  blue=(*p++ >> 3);
  1701. X                }
  1702. X              else
  1703. X                {
  1704. X                  red=(*p >> 3);
  1705. X                  green=(*(p+TIFFScanlineSize(file)) >> 3);
  1706. X                  blue=(*(p+2*TIFFScanlineSize(file)) >> 3);
  1707. X                  p++;
  1708. X                }
  1709. X              if ((red == q->red) && (green == q->green) && 
  1710. X                  (blue == q->blue) && (q->length < MaxRunlength))
  1711. X                q->length++;
  1712. X              else
  1713. X                {
  1714. X                  if (image->packets > 0)
  1715. X                    q++;
  1716. X                  image->packets++;
  1717. X                  q->red=red;
  1718. X                  q->green=green;
  1719. X                  q->blue=blue;
  1720. X                  q->index=0;
  1721. X                  q->length=0;
  1722. X                }
  1723. X              if (samples_per_pixel == 4)
  1724. X                p++;
  1725. X            }
  1726. X            break;
  1727. X          }
  1728. X        }
  1729. X        break;
  1730. X      }
  1731. X      case PHOTOMETRIC_MINISBLACK:
  1732. X      case PHOTOMETRIC_MINISWHITE:
  1733. X      {
  1734. X        switch (bits_per_sample)
  1735. X        {
  1736. X          case 1:
  1737. X          {
  1738. X            register int
  1739. X              bit;
  1740. X
  1741. X            for (x=0; x < image->columns; x+=8)
  1742. X            {
  1743. X              for (bit=7; bit >= 0; bit--)
  1744. X              {
  1745. X                index=((*p) & (0x01 << bit) ? 0x01 : 0x00);
  1746. X                red=image->colormap[index].red;
  1747. X                green=image->colormap[index].green;
  1748. X                blue=image->colormap[index].blue;
  1749. X                if ((red == q->red) && (green == q->green) &&
  1750. X                    (blue == q->blue) && (q->length < MaxRunlength))
  1751. X                  q->length++;
  1752. X                else
  1753. X                  {
  1754. X                    if (image->packets > 0)
  1755. X                      q++;
  1756. X                    image->packets++;
  1757. X                    q->red=red;
  1758. X                    q->green=green;
  1759. X                    q->blue=blue;
  1760. X                    q->index=index;
  1761. X                    q->length=0;
  1762. X                  }
  1763. X              }
  1764. X              p++;
  1765. X            }
  1766. X            if ((image->columns % 8) != 0)
  1767. X              {
  1768. X                for (bit=7; bit >= (8-(image->columns % 8)); bit--)
  1769. X                {
  1770. X                  index=((*p) & (0x01 << bit) ? 0x00 : 0x01);
  1771. X                  red=image->colormap[index].red;
  1772. X                  green=image->colormap[index].green;
  1773. X                  blue=image->colormap[index].blue;
  1774. X                  if ((red == q->red) && (green == q->green) &&
  1775. X                      (blue == q->blue) && (q->length < MaxRunlength))
  1776. X                    q->length++;
  1777. X                  else
  1778. X                    {
  1779. X                      if (image->packets > 0)
  1780. X                        q++;
  1781. X                      image->packets++;
  1782. X                      q->red=red;
  1783. X                      q->green=green;
  1784. X                      q->blue=blue;
  1785. X                      q->index=index;
  1786. X                      q->length=0;
  1787. X                    }
  1788. X                }
  1789. X                p++;
  1790. X              }
  1791. X            break;
  1792. X          }
  1793. X          case 2:
  1794. X          {
  1795. X            for (x=0; x < image->columns; x+=4)
  1796. X            {
  1797. X              index=(*p >> 6) & 3;
  1798. X              red=image->colormap[index].red;
  1799. X              green=image->colormap[index].green;
  1800. X              blue=image->colormap[index].blue;
  1801. X              if ((red == q->red) && (green == q->green) &&
  1802. X                  (blue == q->blue) && (q->length < MaxRunlength))
  1803. X                q->length++;
  1804. X              else
  1805. X                {
  1806. X                  if (image->packets > 0)
  1807. X                    q++;
  1808. X                  image->packets++;
  1809. X                  q->red=red;
  1810. X                  q->green=green;
  1811. X                  q->blue=blue;
  1812. X                  q->index=index;
  1813. X                  q->length=0;
  1814. X                }
  1815. X              index=(*p >> 4) & 3;
  1816. X              red=image->colormap[index].red;
  1817. X              green=image->colormap[index].green;
  1818. X              blue=image->colormap[index].blue;
  1819. X              if ((red == q->red) && (green == q->green) &&
  1820. X                  (blue == q->blue) && (q->length < MaxRunlength))
  1821. X                q->length++;
  1822. X              else
  1823. X                {
  1824. X                  if (image->packets > 0)
  1825. X                    q++;
  1826. X                  image->packets++;
  1827. X                  q->red=red;
  1828. X                  q->green=green;
  1829. X                  q->blue=blue;
  1830. X                  q->index=index;
  1831. X                  q->length=0;
  1832. X                }
  1833. X              index=(*p >> 2) & 3;
  1834. X              red=image->colormap[index].red;
  1835. X              green=image->colormap[index].green;
  1836. X              blue=image->colormap[index].blue;
  1837. X              if ((red == q->red) && (green == q->green) &&
  1838. X                  (blue == q->blue) && (q->length < MaxRunlength))
  1839. X                q->length++;
  1840. X              else
  1841. X                {
  1842. X                  if (image->packets > 0)
  1843. X                    q++;
  1844. X                  image->packets++;
  1845. X                  q->red=red;
  1846. X                  q->green=green;
  1847. X                  q->blue=blue;
  1848. X                  q->index=index;
  1849. X                  q->length=0;
  1850. X                }
  1851. X              index=(*p) & 3;
  1852. X              red=image->colormap[index].red;
  1853. X              green=image->colormap[index].green;
  1854. X              blue=image->colormap[index].blue;
  1855. X              if ((red == q->red) && (green == q->green) &&
  1856. X                  (blue == q->blue) && (q->length < MaxRunlength))
  1857. X                q->length++;
  1858. X              else
  1859. X                {
  1860. X                  if (image->packets > 0)
  1861. X                    q++;
  1862. X                  image->packets++;
  1863. X                  q->red=red;
  1864. X                  q->green=green;
  1865. X                  q->blue=blue;
  1866. X                  q->index=index;
  1867. X                  q->length=0;
  1868. X                }
  1869. X              p++;
  1870. X            }
  1871. X            break;
  1872. X          }
  1873. X          case 4:
  1874. X          {
  1875. X            for (x=0; x < image->columns; x+=2)
  1876. X            {
  1877. X              index=(*p >> 4);
  1878. X              red=image->colormap[index].red;
  1879. X              green=image->colormap[index].green;
  1880. X              blue=image->colormap[index].blue;
  1881. X              if ((red == q->red) && (green == q->green) &&
  1882. X                  (blue == q->blue) && (q->length < MaxRunlength))
  1883. X                q->length++;
  1884. X              else
  1885. X                {
  1886. X                  if (image->packets > 0)
  1887. X                    q++;
  1888. X                  image->packets++;
  1889. X                  q->red=red;
  1890. X                  q->green=green;
  1891. X                  q->blue=blue;
  1892. X                  q->index=index;
  1893. X                  q->length=0;
  1894. X                }
  1895. X              index=(*p) & 0xf;
  1896. X              red=image->colormap[index].red;
  1897. X              green=image->colormap[index].green;
  1898. X              blue=image->colormap[index].blue;
  1899. X              if ((red == q->red) && (green == q->green) &&
  1900. X                  (blue == q->blue) && (q->length < MaxRunlength))
  1901. X                q->length++;
  1902. X              else
  1903. X                {
  1904. X                  if (image->packets > 0)
  1905. X                    q++;
  1906. X                  image->packets++;
  1907. X                  q->red=red;
  1908. X                  q->green=green;
  1909. X                  q->blue=blue;
  1910. X                  q->index=index;
  1911. X                  q->length=0;
  1912. X                }
  1913. X              p++;
  1914. X            }
  1915. X            break;
  1916. X          }
  1917. X          case 8:
  1918. X          {
  1919. X            for (x=0; x < image->columns; x++)
  1920. X            {
  1921. X              index=(*p);
  1922. X              red=image->colormap[index].red;
  1923. X              green=image->colormap[index].green;
  1924. X              blue=image->colormap[index].blue;
  1925. X              if ((red == q->red) && (green == q->green) &&
  1926. X                  (blue == q->blue) && (q->length < MaxRunlength))
  1927. X                q->length++;
  1928. X              else
  1929. X                {
  1930. X                  if (image->packets > 0)
  1931. X                    q++;
  1932. X                  image->packets++;
  1933. X                  q->red=red;
  1934. X                  q->green=green;
  1935. X                  q->blue=blue;
  1936. X                  q->index=index;
  1937. X                  q->length=0;
  1938. X                }
  1939. X              p++;
  1940. X            }
  1941. X            break;
  1942. X          }
  1943. X          default:
  1944. X            break;
  1945. X        }
  1946. X        break;
  1947. X      }
  1948. X      case PHOTOMETRIC_PALETTE:
  1949. X      {
  1950. X        for (x=0; x < image->columns; x++)
  1951. X        {
  1952. X          index=(*p++);
  1953. X          red=image->colormap[index].red;
  1954. X          green=image->colormap[index].green;
  1955. X          blue=image->colormap[index].blue;
  1956. X          if ((red == q->red) && (green == q->green) && (blue == q->blue) && 
  1957. X              (q->length < MaxRunlength))
  1958. X            q->length++;
  1959. X          else
  1960. X            {
  1961. X              if (image->packets > 0)
  1962. X                q++;
  1963. X              image->packets++;
  1964. X              q->red=red;
  1965. X              q->green=green;
  1966. X              q->blue=blue;
  1967. X              q->index=index;
  1968. X              q->length=0;
  1969. X            }
  1970. X        }
  1971. X        break;
  1972. X      }
  1973. X      default:
  1974. X        break;
  1975. X    }
  1976. X  }
  1977. X  free((char *) scanline);
  1978. X  TIFFClose(file);
  1979. X  if (image->class == PseudoClass)
  1980. X    QuantizeImage(image,image->colors,0,False,True);
  1981. X  if (image->packets > ((image->columns*image->rows*3) >> 2))
  1982. X    image->compression=NoCompression;
  1983. X  image->pixels=(RunlengthPacket *)
  1984. X    realloc((char *) image->pixels,image->packets*sizeof(RunlengthPacket));
  1985. X  return(image);
  1986. }
  1987. X
  1988. /*
  1989. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  1990. %                                                                             %
  1991. %                                                                             %
  1992. %                                                                             %
  1993. %   U s a g e                                                                 %
  1994. %                                                                             %
  1995. %                                                                             %
  1996. %                                                                             %
  1997. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  1998. %
  1999. %  Procedure Usage displays the program usage;
  2000. %
  2001. %  The format of the Usage routine is:
  2002. %
  2003. %      Usage(message)
  2004. %
  2005. %  A description of each parameter follows:
  2006. %
  2007. %    program_name:  Specifies the name of this program.
  2008. %
  2009. %    message:  Specifies a specific message to display to the user.
  2010. %
  2011. */
  2012. static void Usage(message)
  2013. char
  2014. X  *message;
  2015. {
  2016. X  if (message != (char *) NULL)
  2017. X    (void) fprintf(stderr,"Can't continue, %s\n\n",message);
  2018. X  (void) fprintf(stderr,"Usage: %s image.tiff image.miff\n\n",application_name);
  2019. X  (void) fprintf(stderr,"Specify 'image.tiff' as '-' for standard input.\n");
  2020. X  (void) fprintf(stderr,"Specify 'image.miff' as '-' for standard output.\n");
  2021. X  exit(1);
  2022. }
  2023. X
  2024. /*
  2025. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  2026. %                                                                             %
  2027. %                                                                             %
  2028. %                                                                             %
  2029. %   W r i t e R a s t e r I m a g e                                           %
  2030. %                                                                             %
  2031. %                                                                             %
  2032. %                                                                             %
  2033. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  2034. %
  2035. %  Procedure WriteRasterImage writes an image to a file on disk in SUN 
  2036. %  rasterfile format.
  2037. %
  2038. %  The format of the WriteRasterImage routine is:
  2039. %
  2040. %      WriteRasterImage(image)
  2041. %
  2042. %  A description of each parameter follows.
  2043. %
  2044. %    o image:  A pointer to a Image structure.
  2045. %
  2046. %
  2047. */
  2048. static void WriteRasterImage(image)
  2049. Image
  2050. X  *image;
  2051. {
  2052. #define RT_STANDARD  1
  2053. #define RMT_NONE  0
  2054. #define RMT_EQUAL_RGB  1
  2055. X
  2056. X  typedef struct Raster
  2057. X  {
  2058. X    int
  2059. X      magic,
  2060. X      width,
  2061. X      height,
  2062. X      depth,
  2063. X      length,
  2064. X      type,
  2065. X      maptype,
  2066. X      maplength;
  2067. X  } Raster;
  2068. X
  2069. X  Raster
  2070. X    sun_header;
  2071. X
  2072. X  register int
  2073. X    i,
  2074. X    j,
  2075. X    x;
  2076. X
  2077. X  register RunlengthPacket
  2078. X    *p;
  2079. X
  2080. X  register unsigned char
  2081. X    *q;
  2082. X
  2083. X  unsigned char
  2084. X    *sun_pixels;
  2085. X
  2086. X  unsigned long
  2087. X    lsb_first;
  2088. X
  2089. X  /*
  2090. X    Open output image file.
  2091. X  */
  2092. X  if (*image->filename == '-')
  2093. X    image->file=stdout;
  2094. X  else
  2095. X    if (strcmp(image->filename+strlen(image->filename)-2,".Z") != 0)
  2096. X      image->file=fopen(image->filename,"w");
  2097. X    else
  2098. X      {
  2099. X        char
  2100. X          command[256];
  2101. X
  2102. X        /*
  2103. X          Image file is compressed-- uncompress it.
  2104. X        */
  2105. X        (void) sprintf(command,"compress -c > %s",image->filename);
  2106. X        image->file=(FILE *) popen(command,"w");
  2107. X      }
  2108. X  if (image->file == (FILE *) NULL)
  2109. X    Error("unable to open file",image->filename);
  2110. X  /*
  2111. X    Initialize raster file sun_header.
  2112. X  */
  2113. X  sun_header.magic=0x59a66a95;
  2114. X  sun_header.width=image->columns;
  2115. X  sun_header.height=image->rows;
  2116. X  sun_header.depth=(image->class == DirectClass ? 24 : 8);
  2117. X  sun_header.length=image->columns*image->rows*(sun_header.depth >> 3)+
  2118. X    (image->columns % 2 ? image->rows : 0);
  2119. X  sun_header.type=RT_STANDARD;
  2120. X  sun_header.maptype=(image->class == DirectClass ? RMT_NONE : RMT_EQUAL_RGB);
  2121. X  sun_header.maplength=(image->class == DirectClass ? 0 : image->colors*3);
  2122. X  /*
  2123. X    Ensure the sun_header byte-order is most-significant byte first.
  2124. X  */
  2125. X  lsb_first=1;
  2126. X  if ((*(char *) &lsb_first) == 0)
  2127. X    (void) fwrite((char *) &sun_header,sizeof(sun_header),1,image->file);
  2128. X  else
  2129. X    {
  2130. X      Raster
  2131. X        reverse_header;
  2132. X
  2133. X      reverse_header=sun_header;
  2134. X      MSBFirstOrder((char *) &reverse_header,sizeof(reverse_header));
  2135. X      (void) fwrite((char *) &reverse_header,sizeof(reverse_header),1,
  2136. SHAR_EOF
  2137. true || echo 'restore of ImageMagick/filters/TIFFtoSUN.c failed'
  2138. fi
  2139. echo 'End of ImageMagick part 14'
  2140. echo 'File ImageMagick/filters/TIFFtoSUN.c is continued in part 15'
  2141. echo 15 > _shar_seq_.tmp
  2142. exit 0
  2143. --
  2144. Dan Heller
  2145. O'Reilly && Associates       Z-Code Software    Comp-sources-x:
  2146. Senior Writer                President          comp-sources-x@uunet.uu.net
  2147. argv@ora.com                 argv@zipcode.com
  2148.