home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume25 / pbmplus / patch30oct91 next >
Encoding:
Text File  |  1991-11-06  |  46.8 KB  |  1,614 lines
  1. Newsgroups: comp.sources.misc
  2. From: jef@well.sf.ca.us (Jef Poskanzer)
  3. Subject:  v25i033:  pbmplus - Extended Portable Bitmap Toolkit, Patch30oct91
  4. Message-ID: <1991Nov6.045135.7889@sparky.imd.sterling.com>
  5. X-Md4-Signature: cc2fa676b351c753487f8f7449cf19aa
  6. Date: Wed, 6 Nov 1991 04:51:35 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: jef@well.sf.ca.us (Jef Poskanzer)
  10. Posting-number: Volume 25, Issue 33
  11. Archive-name: pbmplus/patch30oct91
  12. Environment: UNIX
  13. Patch-To: pbmplus: Volume 23, Issue 36-59, 60
  14.  
  15. A couple more bugs in the tiff reader, a bug in run-length encoded
  16. color PostScript, and a few enhancements.
  17.  
  18. This new version is dated 30oct91.  If you have the 05oct91 version
  19. you can update with the appended patch file.  Or, you can FTP the new
  20. version complete from:
  21.  
  22.     export.lcs.mit.edu:contrib/pbmplus30oct91.tar.Z  (18.24.0.12)
  23.     ftp.ee.lbl.gov:pbmplus30oct91.tar.Z              (128.3.112.20)
  24.  
  25.            Jef Poskanzer  jef@well.sf.ca.us  apple!well!jef
  26.  
  27. - - - - - - - - - -
  28.  
  29. diff -cr pbmplus05oct91/CHANGES pbmplus30oct91/CHANGES
  30. *** pbmplus05oct91/CHANGES    Sat Oct  5 23:51:13 1991
  31. --- pbmplus30oct91/CHANGES    Wed Oct 30 13:03:49 1991
  32. ***************
  33. *** 1,3 ****
  34. --- 1,18 ----
  35. + Changes since the 05oct91 X11R5 contrib tape version:
  36. + 
  37. +     Fixed minor SysV config error in pbmplus.h.  (Tom Lane)
  38. +     Fixed tifftopnm so that BITSPERSAMPLE and SAMPLESPERPIXEL default
  39. +       correctly.  Fixed possible bug in tgatoppm line-interleaving code.
  40. +       (Arthur David Olson)
  41. +     Fixed tifftopnm so that colormapped files are read correctly.
  42. +       (PauL Drews, Mike Wade)
  43. +     Corrected use of DefaultRGBDatabase / RGB_DB for imake sites.
  44. +       (Randal L. Schwartz)
  45. +     Bugfix to pnmtops color PostScript in -rle mode.  (Angus Duggan)
  46. +     Added auto-turning to pnmtops.
  47. +     Added run-length encoding to ppmtotga.
  48. +     Space optimization to pgmoil.
  49. + 
  50.   Changes since the 27sep91 comp.sources.misc distribution:
  51.   
  52.       Fixed spelling error in giftoppm.  Fixed ppmrelief to not shrink the
  53. diff -cr pbmplus05oct91/Makefile pbmplus30oct91/Makefile
  54. *** pbmplus05oct91/Makefile    Fri Sep 27 17:45:46 1991
  55. --- pbmplus30oct91/Makefile    Wed Oct 30 20:13:49 1991
  56. ***************
  57. *** 35,41 ****
  58.   # path here.  This is used by PPM to parse color names into rgb values.
  59.   # If you don't have such a file, comment this out and use the alternative
  60.   # hex and decimal forms to specify colors (see ppm/pgmtoppm.1 for details).
  61. ! RGBDEF =    -DRGB_DB=\"/usr/lib/X11/rgb.txt\"
  62.   
  63.   # CONFIGURE: PBMPLUS's support for TIFF files depends on the library from
  64.   # Sam Leffler's TIFF Software package - see the OTHER.SYSTEMS file for a
  65. --- 35,41 ----
  66.   # path here.  This is used by PPM to parse color names into rgb values.
  67.   # If you don't have such a file, comment this out and use the alternative
  68.   # hex and decimal forms to specify colors (see ppm/pgmtoppm.1 for details).
  69. ! RGBDEF =    -DRGB_DB=\"/usr/lib/X11/rgb\"
  70.   
  71.   # CONFIGURE: PBMPLUS's support for TIFF files depends on the library from
  72.   # Sam Leffler's TIFF Software package - see the OTHER.SYSTEMS file for a
  73. diff -cr pbmplus05oct91/README pbmplus30oct91/README
  74. *** pbmplus05oct91/README    Sat Oct  5 22:36:16 1991
  75. --- pbmplus30oct91/README    Wed Oct 30 20:11:16 1991
  76. ***************
  77. *** 1,6 ****
  78.                     Extended Portable Bitmap Toolkit
  79. !                       Distribution of 05oct91
  80. !                    Previous distribution 27sep91
  81.   
  82.   
  83.   PBMPLUS is a toolkit for converting various image formats to and from
  84. --- 1,6 ----
  85.                     Extended Portable Bitmap Toolkit
  86. !                       Distribution of 30oct91
  87. !                    Previous distribution 05oct91
  88.   
  89.   
  90.   PBMPLUS is a toolkit for converting various image formats to and from
  91. diff -cr pbmplus05oct91/TODO pbmplus30oct91/TODO
  92. *** pbmplus05oct91/TODO    Fri Sep 27 12:40:08 1991
  93. --- pbmplus30oct91/TODO    Thu Oct 24 13:29:41 1991
  94. ***************
  95. *** 18,24 ****
  96.   Figure out why compiling pnmconvol makes gcc die on some systems.
  97.   
  98.   Convert to line-by-line mode:
  99. ! pbmtext.c pbmtoascii.c pbmtoepson.c pbmtomacp.c pbmtoplot.c
  100.   
  101.   The Converter Generator reorganization: all filters become three library
  102.   routines, one to initialize, one to handle each line, and one to finish off.
  103. --- 18,24 ----
  104.   Figure out why compiling pnmconvol makes gcc die on some systems.
  105.   
  106.   Convert to line-by-line mode:
  107. ! pbmtext.c pbmtoascii.c pbmtoepson.c pbmtomacp.c pbmtoplot.c pgmoil.c
  108.   
  109.   The Converter Generator reorganization: all filters become three library
  110.   routines, one to initialize, one to handle each line, and one to finish off.
  111. diff -cr pbmplus05oct91/pbmplus.h pbmplus30oct91/pbmplus.h
  112. *** pbmplus05oct91/pbmplus.h    Mon Sep 23 15:03:08 1991
  113. --- pbmplus30oct91/pbmplus.h    Sun Oct  6 09:32:33 1991
  114. ***************
  115. *** 95,105 ****
  116. --- 95,107 ----
  117.   #define bzero(dst,len) memset(dst,0,len)
  118.   #define bcopy(src,dst,len) memcpy(dst,src,len)
  119.   #define bcmp memcmp
  120. + extern void srand();
  121.   extern int rand();
  122.   
  123.   #else /*SYSV*/
  124.   
  125.   #include <strings.h>
  126. + extern void srandom();
  127.   extern long random();
  128.   
  129.   #endif /*SYSV*/
  130. ***************
  131. *** 106,112 ****
  132.   
  133.   extern int atoi();
  134.   extern void exit();
  135. - extern void srandom();
  136.   extern long time();
  137.   extern int write();
  138.   
  139. --- 108,113 ----
  140. diff -cr pbmplus05oct91/version.h pbmplus30oct91/version.h
  141. *** pbmplus05oct91/version.h    Sat Oct  5 22:35:33 1991
  142. --- pbmplus30oct91/version.h    Wed Oct 30 20:11:25 1991
  143. ***************
  144. *** 1,4 ****
  145.   /* version.h - define the current version of PBM, PGM, PPM, and PNM
  146.   */
  147.   
  148. ! #define PBMPLUS_VERSION "05oct91"
  149. --- 1,4 ----
  150.   /* version.h - define the current version of PBM, PGM, PPM, and PNM
  151.   */
  152.   
  153. ! #define PBMPLUS_VERSION "30oct91"
  154. diff -cr pbmplus05oct91/pbm/Makefile pbmplus30oct91/pbm/Makefile
  155. *** pbmplus05oct91/pbm/Makefile    Fri Sep 27 12:32:47 1991
  156. --- pbmplus30oct91/pbm/Makefile    Thu Oct 24 13:34:36 1991
  157. ***************
  158. *** 15,21 ****
  159.   #CFLAGS =    -O
  160.   CFLAGS =    -g
  161.   #CFLAGS =    -g -O
  162. ! RGBDEF =        -DRGB_DB=\"/usr/lib/X11/rgb.txt\"
  163.   TIFFDEF =       -DLIBTIFF
  164.   #LDFLAGS =    -s
  165.   LDFLAGS =    
  166. --- 15,21 ----
  167.   #CFLAGS =    -O
  168.   CFLAGS =    -g
  169.   #CFLAGS =    -g -O
  170. ! RGBDEF =        -DRGB_DB=\"/usr/lib/X11/rgb\"
  171.   TIFFDEF =       -DLIBTIFF
  172.   #LDFLAGS =    -s
  173.   LDFLAGS =    
  174. diff -cr pbmplus05oct91/pgm/pgmoil.c pbmplus30oct91/pgm/pgmoil.c
  175. *** pbmplus05oct91/pgm/pgmoil.c    Fri Jun 28 14:29:28 1991
  176. --- pbmplus30oct91/pgm/pgmoil.c    Wed Oct 30 13:04:36 1991
  177. ***************
  178. *** 17,29 ****
  179.   
  180.   void
  181.   main( argc, argv )
  182. ! int argc;
  183. ! char* argv[];
  184.       {
  185.       FILE* ifp;
  186.       gray midval, maxval;
  187. !     gray** gin;
  188. !     gray** gout;
  189.       int argn, rows, n, cols, row;
  190.       register int col, drow, dcol;
  191.       int i;
  192. --- 17,29 ----
  193.   
  194.   void
  195.   main( argc, argv )
  196. !     int argc;
  197. !     char* argv[];
  198.       {
  199.       FILE* ifp;
  200.       gray midval, maxval;
  201. !     gray** grays;
  202. !     gray* grayrow;
  203.       int argn, rows, n, cols, row;
  204.       register int col, drow, dcol;
  205.       int i;
  206. ***************
  207. *** 59,78 ****
  208.       if ( argn != argc )
  209.       pm_usage( usage );
  210.   
  211. !     gin = pgm_readpgm( ifp, &cols, &rows, &maxval );
  212.       pm_close( ifp );
  213. -     gout = pgm_allocarray( cols, rows );
  214.   
  215. !     /* Build histogram. */
  216. !     for ( row = n; row < rows - n; ++row )
  217. !     for ( col = n; col < cols - n; ++col )
  218.           {
  219.           for ( i = 0; i <= maxval; ++i )
  220.           hist[i] = 0;
  221.   
  222.           for ( drow = row - n; drow <= row + n; ++drow )
  223. !         for ( dcol = col - n; dcol <= col + n; ++dcol )
  224. !             ++hist[ (int) (gin[drow][dcol]) ];
  225.   
  226.           for ( drow = dcol = 0; dcol < maxval; ++dcol )
  227.           if ( hist[dcol] > drow )
  228. --- 59,82 ----
  229.       if ( argn != argc )
  230.       pm_usage( usage );
  231.   
  232. !     grays = pgm_readpgm( ifp, &cols, &rows, &maxval );
  233.       pm_close( ifp );
  234.   
  235. !     pgm_writepgminit( stdout, cols, rows, maxval, 0 );
  236. !     grayrow = pgm_allocrow( cols );
  237. ! 
  238. !     for ( row = 0; row < rows; ++row )
  239. !     {
  240. !     for ( col = 0; col < cols; ++col )
  241.           {
  242.           for ( i = 0; i <= maxval; ++i )
  243.           hist[i] = 0;
  244.   
  245.           for ( drow = row - n; drow <= row + n; ++drow )
  246. !         if ( drow >= 0 && drow < rows )
  247. !             for ( dcol = col - n; dcol <= col + n; ++dcol )
  248. !             if ( dcol >= 0 && dcol < cols )
  249. !                 ++hist[ (int) (grays[drow][dcol]) ];
  250.   
  251.           for ( drow = dcol = 0; dcol < maxval; ++dcol )
  252.           if ( hist[dcol] > drow )
  253. ***************
  254. *** 80,90 ****
  255.               drow = hist[dcol];
  256.               midval = dcol;
  257.               }
  258. !         gout[row][col] = midval;
  259.           }
  260. ! 
  261. !     pgm_writepgm( stdout, gout, cols, rows, maxval, 0 );
  262. !     pgm_freearray( gout, rows );
  263.   
  264.       exit( 0 );
  265.       }
  266. --- 84,93 ----
  267.               drow = hist[dcol];
  268.               midval = dcol;
  269.               }
  270. !         grayrow[col] = midval;
  271.           }
  272. !     pgm_writepgmrow( stdout, grayrow, cols, maxval, 0 );
  273. !     }
  274.   
  275.       exit( 0 );
  276.       }
  277. diff -cr pbmplus05oct91/pnm/pnmmargin.1 pbmplus30oct91/pnm/pnmmargin.1
  278. *** pbmplus05oct91/pnm/pnmmargin.1    Tue Jun  4 14:12:41 1991
  279. --- pbmplus30oct91/pnm/pnmmargin.1    Fri Oct 25 13:23:16 1991
  280. ***************
  281. *** 1,7 ****
  282.   .TH pnmmargin 1 "9 January 1991"
  283.   .IX pnmmargin
  284.   .SH NAME
  285. ! pnmmargin - add a margin to a portable anymap
  286.   .SH SYNOPSIS
  287.   .B pnmmargin
  288.   .RB [ -white | -black | -color
  289. --- 1,7 ----
  290.   .TH pnmmargin 1 "9 January 1991"
  291.   .IX pnmmargin
  292.   .SH NAME
  293. ! pnmmargin - add a border to a portable anymap
  294.   .SH SYNOPSIS
  295.   .B pnmmargin
  296.   .RB [ -white | -black | -color
  297. ***************
  298. *** 10,21 ****
  299.   .RI [ pnmfile ]
  300.   .SH DESCRIPTION
  301.   Reads a portable anymap as input.
  302. ! Adds a margin of the specified number of pixels,
  303.   and produces a portable anymap as output.
  304.   .IX margin
  305.   .SH OPTIONS
  306.   .PP
  307. ! You can specify the margin color with the
  308.   .BR -white ,
  309.   .BR -black ,
  310.   and
  311. --- 10,22 ----
  312.   .RI [ pnmfile ]
  313.   .SH DESCRIPTION
  314.   Reads a portable anymap as input.
  315. ! Adds a border of the specified number of pixels,
  316.   and produces a portable anymap as output.
  317.   .IX margin
  318. + .IX border
  319.   .SH OPTIONS
  320.   .PP
  321. ! You can specify the border color with the
  322.   .BR -white ,
  323.   .BR -black ,
  324.   and
  325. diff -cr pbmplus05oct91/pnm/pnmtops.1 pbmplus30oct91/pnm/pnmtops.1
  326. *** pbmplus05oct91/pnm/pnmtops.1    Fri Sep 27 00:20:28 1991
  327. --- pbmplus30oct91/pnm/pnmtops.1    Sat Oct 26 15:15:16 1991
  328. ***************
  329. *** 1,12 ****
  330. ! .TH pnmtops 1 "26 September 1991"
  331.   .IX pnmtops
  332.   .SH NAME
  333.   pnmtops - convert portable anymap to PostScript
  334.   .SH SYNOPSIS
  335.   .B pnmtops
  336. - .RB [ -rle | -runlength ]
  337.   .RB [ -scale
  338.   .IR s ]
  339.   .RB [ -dpi
  340.   .IR n ]
  341.   .RB [ -width
  342. --- 1,13 ----
  343. ! .TH pnmtops 1 "26 October 1991"
  344.   .IX pnmtops
  345.   .SH NAME
  346.   pnmtops - convert portable anymap to PostScript
  347.   .SH SYNOPSIS
  348.   .B pnmtops
  349.   .RB [ -scale
  350.   .IR s ]
  351. + .RB [ -turn | -noturn ]
  352. + .RB [ -rle | -runlength ]
  353.   .RB [ -dpi
  354.   .IR n ]
  355.   .RB [ -width
  356. ***************
  357. *** 46,51 ****
  358. --- 47,67 ----
  359.   To get one PNM pixel per 300 dpi printer pixel, use "-scale 0.25".
  360.   .PP
  361.   The
  362. + .B -turn
  363. + and
  364. + .B -noturn
  365. + flags control whether the image gets turned 90 degrees.
  366. + Normally, if an image is wider than it is tall, it gets turned
  367. + automatically to better fit the page.
  368. + If the
  369. + .B -turn
  370. + flag is specified, it will be turned no matter what its shape; and if the
  371. + .B -noturn
  372. + flag is specified, it will
  373. + .I not
  374. + be turned no matter what its shape.
  375. + .PP
  376. + The
  377.   .B -rle
  378.   or
  379.   .B -runlength
  380. ***************
  381. *** 74,82 ****
  382.   All flags can be abbreviated to their shortest unique prefix.
  383.   .SH "SEE ALSO"
  384.   pnm(5), psidtopgm(1)
  385. - .SH BUGS
  386. - It ought to automatically rotate to landscape mode if that would fit
  387. - the image better.
  388.   .SH AUTHOR
  389.   Copyright (C) 1989, 1991 by Jef Poskanzer.
  390.   .\" Permission to use, copy, modify, and distribute this software and its
  391. --- 90,95 ----
  392. diff -cr pbmplus05oct91/pnm/pnmtops.c pbmplus30oct91/pnm/pnmtops.c
  393. *** pbmplus05oct91/pnm/pnmtops.c    Fri Sep 27 12:07:53 1991
  394. --- pbmplus30oct91/pnm/pnmtops.c    Sat Oct 26 15:16:56 1991
  395. ***************
  396. *** 14,20 ****
  397.   
  398.   #define MARGIN 0.95
  399.   
  400. ! static void putinit ARGS(( char* name, int cols, int rows, int padright, int bps, float scale, int dpi, int pagewid, int pagehgt, int format, int rleflag ));
  401.   static void putitem ARGS(( void ));
  402.   static void putxelval ARGS(( xelval xv ));
  403.   static void putrest ARGS(( void ));
  404. --- 14,20 ----
  405.   
  406.   #define MARGIN 0.95
  407.   
  408. ! static void putinit ARGS(( char* name, int cols, int rows, int padright, int bps, float scale, int dpi, int pagewid, int pagehgt, int format, int turnflag, int turnokflag, int rleflag ));
  409.   static void putitem ARGS(( void ));
  410.   static void putxelval ARGS(( xelval xv ));
  411.   static void putrest ARGS(( void ));
  412. ***************
  413. *** 32,50 ****
  414.       FILE* ifp;
  415.       xel* xelrow;
  416.       register xel* xP;
  417. !     int argn, rleflag, rows, cols, format, bps, padright, row, col;
  418.       xelval maxval, nmaxval;
  419.       float scale, f;
  420.       int dpi, pagewid, pagehgt;
  421.       char name[100];
  422.       char* cp;
  423. !     char* usage = "[-rle|-runlength] [-scale <x>] [-dpi <n>] [-width <n>] [-height <n>] [pnmfile]";
  424.   
  425.       pnm_init( &argc, argv );
  426.   
  427.       argn = 1;
  428. -     rleflag = 0;
  429.       scale = 1.0;
  430.       /* LaserWriter defaults. */
  431.       dpi = 300;
  432.       pagewid = 612;
  433. --- 32,53 ----
  434.       FILE* ifp;
  435.       xel* xelrow;
  436.       register xel* xP;
  437. !     int argn, turnflag, turnokflag, rleflag;
  438. !     int rows, cols, format, bps, padright, row, col;
  439.       xelval maxval, nmaxval;
  440.       float scale, f;
  441.       int dpi, pagewid, pagehgt;
  442.       char name[100];
  443.       char* cp;
  444. !     char* usage = "[-scale <x>] [-turn|-noturn] [-rle|-runlength] [-dpi <n>] [-width <n>] [-height <n>] [-rle|-runlength] [pnmfile]";
  445.   
  446.       pnm_init( &argc, argv );
  447.   
  448.       argn = 1;
  449.       scale = 1.0;
  450. +     turnflag = 0;
  451. +     turnokflag = 1;
  452. +     rleflag = 0;
  453.       /* LaserWriter defaults. */
  454.       dpi = 300;
  455.       pagewid = 612;
  456. ***************
  457. *** 53,70 ****
  458.       /* Check for flags. */
  459.       while ( argn < argc && argv[argn][0] == '-' && argv[argn][1] != '\0' )
  460.       {
  461. !     if ( pm_keymatch( argv[argn], "-rle", 2 ) ||
  462. !          pm_keymatch( argv[argn], "-runlength", 2 ) )
  463. !         rleflag = 1;
  464. !     else if ( pm_keymatch( argv[argn], "-norle", 2 ) ||
  465. !          pm_keymatch( argv[argn], "-norunlength", 2 ) )
  466. !         rleflag = 0;
  467. !     else if ( pm_keymatch( argv[argn], "-scale", 2 ) )
  468.           {
  469.           ++argn;
  470.           if ( argn == argc || sscanf( argv[argn], "%f", &scale ) != 1 )
  471.           pm_usage( usage );
  472.           }
  473.       else if ( pm_keymatch( argv[argn], "-dpi", 2 ) )
  474.           {
  475.           ++argn;
  476. --- 56,74 ----
  477.       /* Check for flags. */
  478.       while ( argn < argc && argv[argn][0] == '-' && argv[argn][1] != '\0' )
  479.       {
  480. !     if ( pm_keymatch( argv[argn], "-scale", 2 ) )
  481.           {
  482.           ++argn;
  483.           if ( argn == argc || sscanf( argv[argn], "%f", &scale ) != 1 )
  484.           pm_usage( usage );
  485.           }
  486. +     else if ( pm_keymatch( argv[argn], "-turn", 2 ) )
  487. +         turnflag = 1;
  488. +     else if ( pm_keymatch( argv[argn], "-noturn", 2 ) )
  489. +         turnokflag = 0;
  490. +     else if ( pm_keymatch( argv[argn], "-rle", 2 ) ||
  491. +               pm_keymatch( argv[argn], "-runlength", 2 ) )
  492. +         rleflag = 1;
  493.       else if ( pm_keymatch( argv[argn], "-dpi", 2 ) )
  494.           {
  495.           ++argn;
  496. ***************
  497. *** 128,134 ****
  498.   
  499.       putinit(
  500.       name, cols, rows, padright, bps, scale, dpi, pagewid, pagehgt, format,
  501. !     rleflag );
  502.       for ( row = 0; row < rows; ++row )
  503.       {
  504.       pnm_readpnmrow( ifp, xelrow, cols, maxval, format );
  505. --- 132,138 ----
  506.   
  507.       putinit(
  508.       name, cols, rows, padright, bps, scale, dpi, pagewid, pagehgt, format,
  509. !     turnflag, turnokflag, rleflag );
  510.       for ( row = 0; row < rows; ++row )
  511.       {
  512.       pnm_readpnmrow( ifp, xelrow, cols, maxval, format );
  513. ***************
  514. *** 150,155 ****
  515. --- 154,161 ----
  516.               rleputxelval( 0 );
  517.           else
  518.               putxelval( 0 );
  519. +         if ( rleflag )
  520. +         rleflush();
  521.           /* Then green. */
  522.           for ( col = 0, xP = xelrow; col < cols; ++col, ++xP )
  523.           if ( rleflag )
  524. ***************
  525. *** 161,166 ****
  526. --- 167,174 ----
  527.               rleputxelval( 0 );
  528.           else
  529.               putxelval( 0 );
  530. +         if ( rleflag )
  531. +         rleflush();
  532.           /* And blue. */
  533.           for ( col = 0, xP = xelrow; col < cols; ++col, ++xP )
  534.           if ( rleflag )
  535. ***************
  536. *** 213,231 ****
  537.   
  538.   #if __STDC__
  539.   static void
  540. ! putinit( char* name, int cols, int rows, int padright, int bps, float scale, int dpi, int pagewid, int pagehgt, int format, int rleflag )
  541.   #else /*__STDC__*/
  542.   static void
  543. ! putinit( name, cols, rows, padright, bps, scale, dpi, pagewid, pagehgt, format, rleflag )
  544.       char* name;
  545.       int cols, rows, padright, bps;
  546.       float scale;
  547. !     int dpi, pagewid, pagehgt, format, rleflag;
  548.   #endif /*__STDC__*/
  549.       {
  550. !     int devpix;
  551.       float pixfac, scols, srows, llx, lly;
  552.   
  553.       devpix = dpi / 72.0 + 0.5;        /* device pixels per unit, approx. */
  554.       pixfac = 72.0 / dpi * devpix;    /* 1, approx. */
  555.       scols = scale * cols * pixfac;
  556. --- 221,253 ----
  557.   
  558.   #if __STDC__
  559.   static void
  560. ! putinit( char* name, int cols, int rows, int padright, int bps, float scale,
  561. !      int dpi, int pagewid, int pagehgt, int format, int turnflag,
  562. !      int turnokflag, int rleflag )
  563.   #else /*__STDC__*/
  564.   static void
  565. ! putinit( name, cols, rows, padright, bps, scale, dpi, pagewid, pagehgt, format,
  566. !      turnflag, turnokflag, rleflag )
  567.       char* name;
  568.       int cols, rows, padright, bps;
  569.       float scale;
  570. !     int dpi, pagewid, pagehgt, format, turnflag, turnokflag, rleflag;
  571.   #endif /*__STDC__*/
  572.       {
  573. !     int icols, irows, devpix;
  574.       float pixfac, scols, srows, llx, lly;
  575.   
  576. +     /* Turn? */
  577. +     icols = cols;
  578. +     irows = rows;
  579. +     if ( turnflag || ( turnokflag && cols > rows ) )
  580. +     {
  581. +     turnflag = 1;
  582. +     cols = irows;
  583. +     rows = icols;
  584. +     }
  585. + 
  586. +     /* Figure out size. */
  587.       devpix = dpi / 72.0 + 0.5;        /* device pixels per unit, approx. */
  588.       pixfac = 72.0 / dpi * devpix;    /* 1, approx. */
  589.       scols = scale * cols * pixfac;
  590. ***************
  591. *** 302,320 ****
  592.       }
  593.       if ( PNM_FORMAT_TYPE( format ) == PPM_TYPE )
  594.       {
  595. !     printf( "/rpicstr %d string def\n", ( cols + padright ) * bps / 8 );
  596. !     printf( "/gpicstr %d string def\n", ( cols + padright ) * bps / 8 );
  597. !     printf( "/bpicstr %d string def\n", ( cols + padright ) * bps / 8 );
  598.       }
  599.       else
  600. !     printf( "/picstr %d string def\n", ( cols + padright ) * bps / 8 );
  601.       printf( "%%%%EndProlog\n" );
  602.       printf( "%%%%Page: 1 1\n" );
  603.       printf( "gsave\n" );
  604.       printf( "%g %g translate\n", llx, lly );
  605.       printf( "%g %g scale\n", scols, srows );
  606. !     printf( "%d %d %d\n", cols, rows, bps );
  607. !     printf( "[ %d 0 0 -%d 0 %d ]\n", cols, rows, rows );
  608.       if ( PNM_FORMAT_TYPE( format ) == PPM_TYPE )
  609.       {
  610.       printf( "{ rpicstr readstring }\n" );
  611. --- 324,344 ----
  612.       }
  613.       if ( PNM_FORMAT_TYPE( format ) == PPM_TYPE )
  614.       {
  615. !     printf( "/rpicstr %d string def\n", ( icols + padright ) * bps / 8 );
  616. !     printf( "/gpicstr %d string def\n", ( icols + padright ) * bps / 8 );
  617. !     printf( "/bpicstr %d string def\n", ( icols + padright ) * bps / 8 );
  618.       }
  619.       else
  620. !     printf( "/picstr %d string def\n", ( icols + padright ) * bps / 8 );
  621.       printf( "%%%%EndProlog\n" );
  622.       printf( "%%%%Page: 1 1\n" );
  623.       printf( "gsave\n" );
  624.       printf( "%g %g translate\n", llx, lly );
  625.       printf( "%g %g scale\n", scols, srows );
  626. !     if ( turnflag )
  627. !     printf( "0.5 0.5 translate  90 rotate  -0.5 -0.5 translate\n" );
  628. !     printf( "%d %d %d\n", icols, irows, bps );
  629. !     printf( "[ %d 0 0 -%d 0 %d ]\n", icols, irows, irows );
  630.       if ( PNM_FORMAT_TYPE( format ) == PPM_TYPE )
  631.       {
  632.       printf( "{ rpicstr readstring }\n" );
  633. diff -cr pbmplus05oct91/pnm/tifftopnm.c pbmplus30oct91/pnm/tifftopnm.c
  634. *** pbmplus05oct91/pnm/tifftopnm.c    Sun Oct  6 01:11:11 1991
  635. --- pbmplus30oct91/pnm/tifftopnm.c    Thu Oct 24 16:10:55 1991
  636. ***************
  637. *** 46,54 ****
  638.       register u_char sample;
  639.       register int bitsleft;
  640.       unsigned short bps, spp, photomet;
  641. !     unsigned short** redcolormap;
  642. !     unsigned short** greencolormap;
  643. !     unsigned short** bluecolormap;
  644.       char* usage = "[-headerdump] [tifffile]";
  645.   
  646.       pnm_init( &argc, argv );
  647. --- 46,54 ----
  648.       register u_char sample;
  649.       register int bitsleft;
  650.       unsigned short bps, spp, photomet;
  651. !     unsigned short* redcolormap;
  652. !     unsigned short* greencolormap;
  653. !     unsigned short* bluecolormap;
  654.       char* usage = "[-headerdump] [tifffile]";
  655.   
  656.       pnm_init( &argc, argv );
  657. ***************
  658. *** 86,94 ****
  659.       TIFFPrintDirectory( tif, stderr, TIFFPRINT_NONE );
  660.   
  661.       if ( ! TIFFGetField( tif, TIFFTAG_BITSPERSAMPLE, &bps ) )
  662. !     pm_error( "error getting bits per sample" );
  663.       if ( ! TIFFGetField( tif, TIFFTAG_SAMPLESPERPIXEL, &spp ) )
  664. !     pm_error( "error getting samples per pixel" );
  665.       if ( ! TIFFGetField( tif, TIFFTAG_PHOTOMETRIC, &photomet ) )
  666.       pm_error( "error getting photometric" );
  667.   
  668. --- 86,94 ----
  669.       TIFFPrintDirectory( tif, stderr, TIFFPRINT_NONE );
  670.   
  671.       if ( ! TIFFGetField( tif, TIFFTAG_BITSPERSAMPLE, &bps ) )
  672. !     bps = 1;
  673.       if ( ! TIFFGetField( tif, TIFFTAG_SAMPLESPERPIXEL, &spp ) )
  674. !     spp = 1;
  675.       if ( ! TIFFGetField( tif, TIFFTAG_PHOTOMETRIC, &photomet ) )
  676.       pm_error( "error getting photometric" );
  677.   
  678. diff -cr pbmplus05oct91/ppm/Makefile pbmplus30oct91/ppm/Makefile
  679. *** pbmplus05oct91/ppm/Makefile    Fri Sep 27 12:35:05 1991
  680. --- pbmplus30oct91/ppm/Makefile    Thu Oct 24 13:34:40 1991
  681. ***************
  682. *** 15,21 ****
  683.   #CFLAGS =    -O
  684.   CFLAGS =    -g
  685.   #CFLAGS =    -g -O
  686. ! RGBDEF =    -DRGB_DB=\"/usr/lib/X11/rgb.txt\"
  687.   #LDFLAGS =    -s
  688.   LDFLAGS =    
  689.   INSTALLBINARIES =    /usr/new/pbm
  690. --- 15,21 ----
  691.   #CFLAGS =    -O
  692.   CFLAGS =    -g
  693.   #CFLAGS =    -g -O
  694. ! RGBDEF =    -DRGB_DB=\"/usr/lib/X11/rgb\"
  695.   #LDFLAGS =    -s
  696.   LDFLAGS =    
  697.   INSTALLBINARIES =    /usr/new/pbm
  698. diff -cr pbmplus05oct91/ppm/libppm4.c pbmplus30oct91/ppm/libppm4.c
  699. *** pbmplus05oct91/ppm/libppm4.c    Sat Oct  5 23:37:10 1991
  700. --- pbmplus30oct91/ppm/libppm4.c    Sat Oct 26 00:14:45 1991
  701. ***************
  702. *** 202,208 ****
  703.       FILE* f;
  704.       char buf1[200], buf2[200];
  705.   
  706. !     if ( ( f = fopen( RGB_DB, "r" ) ) == NULL )
  707.           pm_error( "can't open color names database - reconfigure with correct RGBDEF" );
  708.       canonstr( colorname );
  709.       while ( fgets( buf1, sizeof(buf1), f ) != NULL )
  710. --- 202,209 ----
  711.       FILE* f;
  712.       char buf1[200], buf2[200];
  713.   
  714. !     (void) sprintf( buf1, "%s.txt", RGB_DB );
  715. !     if ( ( f = fopen( buf1, "r" ) ) == NULL )
  716.           pm_error( "can't open color names database - reconfigure with correct RGBDEF" );
  717.       canonstr( colorname );
  718.       while ( fgets( buf1, sizeof(buf1), f ) != NULL )
  719. ***************
  720. *** 272,278 ****
  721.       }
  722.   
  723.   #ifdef RGB_DB
  724. !     if ( ( f = fopen( RGB_DB, "r" ) ) == NULL )
  725.       pm_error( "can't open color names database - reconfigure with correct RGBDEF" );
  726.       best_diff = 32767;
  727.       while ( fgets( buf, sizeof(buf), f ) != NULL )
  728. --- 273,280 ----
  729.       }
  730.   
  731.   #ifdef RGB_DB
  732. !     (void) sprintf( buf, "%s.txt", RGB_DB );
  733. !     if ( ( f = fopen( buf, "r" ) ) == NULL )
  734.       pm_error( "can't open color names database - reconfigure with correct RGBDEF" );
  735.       best_diff = 32767;
  736.       while ( fgets( buf, sizeof(buf), f ) != NULL )
  737. diff -cr pbmplus05oct91/ppm/ppmtotga.1 pbmplus30oct91/ppm/ppmtotga.1
  738. *** pbmplus05oct91/ppm/ppmtotga.1    Thu Sep 26 17:16:38 1991
  739. --- pbmplus30oct91/ppm/ppmtotga.1    Wed Oct 30 09:37:56 1991
  740. ***************
  741. *** 1,4 ****
  742. ! .TH ppmtotga 1 "26 August 1989"
  743.   .IX ppmtotga
  744.   .SH NAME
  745.   ppmtotga - convert portable pixmap into a TrueVision Targa file
  746. --- 1,4 ----
  747. ! .TH ppmtotga 1 "28 October 1991"
  748.   .IX ppmtotga
  749.   .SH NAME
  750.   ppmtotga - convert portable pixmap into a TrueVision Targa file
  751. ***************
  752. *** 5,10 ****
  753. --- 5,11 ----
  754.   .SH SYNOPSIS
  755.   .B ppmtotga
  756.   .RB [ -mono|-cmap|-rgb ]
  757. + .RB [ -norle ]
  758.   .RI [ ppmfile ]
  759.   .SH DESCRIPTION
  760.   Reads a portable pixmap as input.
  761. ***************
  762. *** 22,27 ****
  763. --- 23,32 ----
  764.   .TP
  765.   .B -rgb
  766.   Forces Targa file to be of type 24 bit unmapped color.
  767. + .TP
  768. + .B -norle
  769. + Disables run-length encoding, in case you have a Targa reader which
  770. + can't read run-length encoded files.
  771.   .PP
  772.   All flags can be abbreviated to their shortest unique prefix.  If no
  773.   file type is specified the most highly constained compatible type is
  774. ***************
  775. *** 33,39 ****
  776.   .SH "SEE ALSO"
  777.   tgatoppm(1), ppm(5)
  778.   .SH AUTHOR
  779. ! Copyright (C) 1991 by Mark Shand.
  780.   .\" Permission to use, copy, modify, and distribute this software and its
  781.   .\" documentation for any purpose and without fee is hereby granted, provided
  782.   .\" that the above copyright notice appear in all copies and that both that
  783. --- 38,44 ----
  784.   .SH "SEE ALSO"
  785.   tgatoppm(1), ppm(5)
  786.   .SH AUTHOR
  787. ! Copyright (C) 1989, 1991 by Mark Shand and Jef Poskanzer.
  788.   .\" Permission to use, copy, modify, and distribute this software and its
  789.   .\" documentation for any purpose and without fee is hereby granted, provided
  790.   .\" that the above copyright notice appear in all copies and that both that
  791. diff -cr pbmplus05oct91/ppm/ppmtotga.c pbmplus30oct91/ppm/ppmtotga.c
  792. *** pbmplus05oct91/ppm/ppmtotga.c    Thu Sep 26 17:16:14 1991
  793. --- pbmplus30oct91/ppm/ppmtotga.c    Wed Oct 30 10:56:22 1991
  794. ***************
  795. *** 1,6 ****
  796.   /* ppmtotga.c - read a portable pixmap and produce a TrueVision Targa file
  797.   **
  798. ! ** Copyright (C) 1991 by Mark Shand
  799.   **
  800.   ** Permission to use, copy, modify, and distribute this software and its
  801.   ** documentation for any purpose and without fee is hereby granted, provided
  802. --- 1,6 ----
  803.   /* ppmtotga.c - read a portable pixmap and produce a TrueVision Targa file
  804.   **
  805. ! ** Copyright (C) 1989, 1991 by Mark Shand and Jef Poskanzer
  806.   **
  807.   ** Permission to use, copy, modify, and distribute this software and its
  808.   ** documentation for any purpose and without fee is hereby granted, provided
  809. ***************
  810. *** 10,23 ****
  811.   ** implied warranty.
  812.   */
  813.   
  814. - #include <ctype.h>
  815.   #include "ppm.h"
  816.   #include "ppmcmap.h"
  817.   #include "tga.h"
  818.   
  819. ! /* Max number of colors allowed in ppm input. */
  820.   #define MAXCOLORS 256
  821.   
  822.   void
  823.   main( argc, argv )
  824.       int argc;
  825. --- 10,33 ----
  826.   ** implied warranty.
  827.   */
  828.   
  829.   #include "ppm.h"
  830.   #include "ppmcmap.h"
  831.   #include "tga.h"
  832.   
  833. ! /* Max number of colors allowed for colormapped output. */
  834.   #define MAXCOLORS 256
  835.   
  836. + /* Forward routines. */
  837. + static void writetga ARGS(( struct ImageHeader* tgaP, char* id ));
  838. + static void put_map_entry ARGS(( pixel* valueP, int size, pixval maxval ));
  839. + static void compute_runlengths ARGS(( int cols, pixel* pixelrow, int* runlength ));
  840. + static void put_pixel ARGS(( pixel* pP, int imgtype, pixval maxval, colorhash_table cht ));
  841. + static void put_mono ARGS(( pixel* pP, pixval maxval ));
  842. + static void put_map ARGS(( pixel* pP, colorhash_table cht ));
  843. + static void put_rgb ARGS(( pixel* pP, pixval maxval ));
  844. + 
  845. + /* Routines. */
  846. + 
  847.   void
  848.   main( argc, argv )
  849.       int argc;
  850. ***************
  851. *** 26,47 ****
  852.       FILE* ifp;
  853.       pixel** pixels;
  854.       register pixel* pP;
  855. !     int argn, rows, cols, ncolors, row, col, i, format, realrow;
  856.       pixval maxval;
  857. -     colorhash_table cht;
  858.       colorhist_vector chv;
  859.       char out_name[100];
  860.       char* cp;
  861. !     char* usage = "[-name <tganame>] [-mono|-cmap|-rgb] [ppmfile]";
  862.       struct ImageHeader tgaHeader;
  863.   
  864.       ppm_init( &argc, argv );
  865.       out_name[0] = '\0';
  866.   
  867.       argn = 1;
  868. - 
  869.       tgaHeader.ImgType = TGA_Null;
  870. !     /* Check for command line options. */
  871.       while ( argn < argc && argv[argn][0] == '-' && argv[argn][1] != '\0' )
  872.           {
  873.           if ( pm_keymatch( argv[argn], "-name", 2 ) )
  874. --- 36,59 ----
  875.       FILE* ifp;
  876.       pixel** pixels;
  877.       register pixel* pP;
  878. !     pixel p;
  879. !     int argn, rle_flag, rows, cols, ncolors, row, col, i, format, realrow;
  880.       pixval maxval;
  881.       colorhist_vector chv;
  882. +     colorhash_table cht;
  883.       char out_name[100];
  884.       char* cp;
  885. !     int* runlength;
  886. !     char* usage = "[-name <tganame>] [-mono|-cmap|-rgb] [-norle] [ppmfile]";
  887.       struct ImageHeader tgaHeader;
  888.   
  889.       ppm_init( &argc, argv );
  890.       out_name[0] = '\0';
  891.   
  892. +     /* Check for command line options. */
  893.       argn = 1;
  894.       tgaHeader.ImgType = TGA_Null;
  895. !     rle_flag = 1;
  896.       while ( argn < argc && argv[argn][0] == '-' && argv[argn][1] != '\0' )
  897.           {
  898.           if ( pm_keymatch( argv[argn], "-name", 2 ) )
  899. ***************
  900. *** 57,62 ****
  901. --- 69,76 ----
  902.               tgaHeader.ImgType = TGA_Mono;
  903.           else if ( pm_keymatch( argv[argn], "-rgb", 2 ) )
  904.               tgaHeader.ImgType = TGA_RGB;
  905. +         else if ( pm_keymatch( argv[argn], "-norle", 2 ) )
  906. +             rle_flag = 0;
  907.           else
  908.               pm_usage( usage );
  909.           ++argn;
  910. ***************
  911. *** 93,287 ****
  912.   
  913.       /* Read in the ppm file. */
  914.       ppm_readppminit( ifp, &cols, &rows, &maxval, &format);
  915. !     pixels = ppm_allocarray(cols, rows);
  916. !     for (row = 0; row < rows; row++)
  917. !     ppm_readppmrow(ifp, pixels[row], cols, maxval, format);
  918.       pm_close( ifp );
  919.   
  920.       /* Figure out the colormap. */
  921. !     switch (PPM_FORMAT_TYPE(format))
  922. !     {
  923.           case PPM_TYPE:
  924. !             if (tgaHeader.ImgType == TGA_Mono)
  925. !                 pm_error("input not a graymap, filter through ppmtopgm first");
  926. !             if (tgaHeader.ImgType == TGA_Null || tgaHeader.ImgType == TGA_Map)
  927. !             {
  928. !                 pm_message( "computing colormap..." );
  929. !                 chv = ppm_computecolorhist( pixels, cols, rows, MAXCOLORS, &ncolors );
  930. !                 if ( chv == (colorhist_vector) 0 )
  931. !                 {
  932. !                     if (tgaHeader.ImgType == TGA_Map)
  933. !                         pm_error(
  934. !                             "too many colors - try doing a 'ppmquant %d'",
  935. !                             MAXCOLORS);
  936. !                     else
  937. !                         tgaHeader.ImgType = TGA_RGB;
  938. !                 }
  939. !                 else
  940. !                 {
  941. !                     pm_message( "%d colors found", ncolors );
  942. !                     if (tgaHeader.ImgType == TGA_Null)
  943. !                         tgaHeader.ImgType = TGA_Map;
  944. !                 }
  945. !             }
  946. !             break;
  947.           case PGM_TYPE:
  948.           case PBM_TYPE:
  949. !             if (tgaHeader.ImgType == TGA_Null)
  950. !                 tgaHeader.ImgType = TGA_Mono;
  951. !             else if (tgaHeader.ImgType == TGA_Map)
  952. !             {
  953. !                 pm_message( "computing colormap..." );
  954. !                 chv = ppm_computecolorhist( pixels, cols, rows, MAXCOLORS, &ncolors );
  955. !                 if ( chv == (colorhist_vector) 0 )
  956. !                     pm_error("can't happen");
  957. !                 pm_message( "%d colors found", ncolors );
  958. !             }
  959. !             break;
  960.   
  961.           default:
  962. !             pm_error( "can't happen");
  963. !     }
  964.   
  965. !     tgaHeader.IDLength = 0;
  966.       
  967. !     if (tgaHeader.ImgType == TGA_Map)
  968. !     {
  969.           /* Make a hash table for fast color lookup. */
  970.           cht = ppm_colorhisttocolorhash( chv, ncolors );
  971.   
  972.           tgaHeader.CoMapType = 1;
  973. !         tgaHeader.Index_lo = 0;
  974. !         tgaHeader.Index_hi = 0;
  975. !         tgaHeader.Length_lo = ncolors%256;
  976. !         tgaHeader.Length_hi = ncolors/256;
  977.           tgaHeader.CoSize = 24;
  978. !         tgaHeader.PixelSize = 8;
  979. !     }
  980.       else
  981. !     {
  982.           tgaHeader.CoMapType = 0;
  983. -         tgaHeader.Index_lo = 0;
  984. -         tgaHeader.Index_hi = 0;
  985.           tgaHeader.Length_lo = 0;
  986.           tgaHeader.Length_hi = 0;
  987.           tgaHeader.CoSize = 0;
  988. !         tgaHeader.PixelSize = (tgaHeader.ImgType == TGA_RGB) ? 24 : 8;
  989. !     }
  990.       tgaHeader.X_org_lo = tgaHeader.X_org_hi = 0;
  991.       tgaHeader.Y_org_lo = tgaHeader.Y_org_hi = 0;
  992. !     tgaHeader.Width_lo = cols%256; tgaHeader.Width_hi = cols/256;
  993. !     tgaHeader.Height_lo = rows%256; tgaHeader.Height_hi = rows/256;
  994.       tgaHeader.AttBits = 0;
  995.       tgaHeader.Rsrvd = 0;
  996.       tgaHeader.IntrLve = 0;
  997.   
  998. !     /* Write out the TGA header. */
  999. !     writetga(&tgaHeader, NULL);
  1000.   
  1001. !     if (tgaHeader.ImgType == TGA_Map)
  1002. !     {
  1003. !         /* Write out the TGA colormap. */
  1004. !         for (i = 0; i < ncolors; i++)
  1005. !             put_map_entry(chv[i].color, tgaHeader.CoSize, maxval);
  1006. !     }
  1007.   
  1008.       /* Write out the pixels */
  1009.       for ( row = 0; row < rows; ++row )
  1010. !         {
  1011. !             realrow = row;
  1012. !             if ( tgaHeader.OrgBit == 0 )
  1013. !                 realrow = rows - realrow - 1;
  1014. !             if (tgaHeader.ImgType == TGA_Map)
  1015. !                 for ( col = 0; col < cols; col++ )
  1016. !                     putchar(ppm_lookupcolor(cht, pixels[realrow]+col));
  1017. !             else if (tgaHeader.ImgType == TGA_Mono)
  1018. !                 for ( col = 0; col < cols; col++ )
  1019. !                 {
  1020. !                     pixel sP;
  1021. !                     PPM_DEPTH(sP, pixels[realrow][col], maxval, (pixval) 255);
  1022. !                     putchar((int) PPM_LUMIN(sP));
  1023. !                 }
  1024. !             else if (tgaHeader.ImgType == TGA_RGB)
  1025. !                 for ( col = 0; col < cols; col++ )
  1026. !                 {
  1027. !                     pixel sP;
  1028. !                     PPM_DEPTH(sP, pixels[realrow][col], maxval, (pixval) 255);
  1029. !                     putchar(PPM_GETB(sP));
  1030. !                     putchar(PPM_GETG(sP));
  1031. !                     putchar(PPM_GETR(sP));
  1032. !                 }
  1033. !         }
  1034.       exit( 0 );
  1035.       }
  1036.   
  1037. ! writetga( tgaP, id)
  1038. ! struct ImageHeader *tgaP;
  1039. ! char *id;
  1040. ! {
  1041.       unsigned char flags;
  1042.   
  1043. !     putchar(tgaP->IDLength);
  1044. !     putchar(tgaP->CoMapType);
  1045. !     putchar(tgaP->ImgType);
  1046. !     putchar(tgaP->Index_lo);
  1047. !     putchar(tgaP->Index_hi);
  1048. !     putchar(tgaP->Length_lo);
  1049. !     putchar(tgaP->Length_hi);
  1050. !     putchar(tgaP->CoSize);
  1051. !     putchar(tgaP->X_org_lo);
  1052. !     putchar(tgaP->X_org_hi);
  1053. !     putchar(tgaP->Y_org_lo);
  1054. !     putchar(tgaP->Y_org_hi);
  1055. !     putchar(tgaP->Width_lo);
  1056. !     putchar(tgaP->Width_hi);
  1057. !     putchar(tgaP->Height_lo);
  1058. !     putchar(tgaP->Height_hi);
  1059. !     putchar(tgaP->PixelSize);
  1060. !     flags = (tgaP->AttBits & 0xf)
  1061. !             | ((tgaP->Rsrvd & 0x1) << 4)
  1062. !             | ((tgaP->OrgBit & 0x1) << 5)
  1063. !             | ((tgaP->OrgBit & 0x3) << 6);
  1064. !     putchar(flags);
  1065. !     if (tgaP->IDLength)
  1066. !         fwrite( id, 1, (int) tgaP->IDLength, stdout);
  1067. ! }
  1068.       
  1069. ! put_map_entry(Value, Size, maxval) 
  1070. ! pixel Value;
  1071. ! int Size;
  1072. ! pixval maxval;
  1073. ! {
  1074.       int j;
  1075. !     pixel sP;
  1076.       
  1077. !     switch ( Size )
  1078. !     {
  1079.       case 8:                /* Grey scale. */
  1080. !     
  1081. !     PPM_DEPTH(sP, Value, maxval, (pixval) 255);
  1082. !         putchar((int) PPM_LUMIN(sP));
  1083.       break;
  1084.   
  1085.       case 16:            /* 5 bits each of red green and blue. */
  1086.       case 15:            /* Watch for byte order. */
  1087. !     PPM_DEPTH(sP, Value, maxval, 31);
  1088. !     j = (int) PPM_GETB(sP)
  1089. !       | ((int) PPM_GETG(sP) << 5)
  1090. !       | ((int) PPM_GETR(sP) << 10);
  1091. !     putchar(j%256);
  1092. !     putchar(j/256);
  1093.       break;
  1094.   
  1095.       case 32:
  1096.       case 24:            /* 8 bits each of blue green and red. */
  1097. !     PPM_DEPTH(sP, Value, maxval, (pixval) 255);
  1098. !     putchar(PPM_GETB(sP));
  1099. !     putchar(PPM_GETG(sP));
  1100. !     putchar(PPM_GETR(sP));
  1101.       break;
  1102.   
  1103.       default:
  1104. !     pm_error( "unknown colormap pixel size (#2) - %d", Size );
  1105.       }
  1106. ! }
  1107. --- 107,450 ----
  1108.   
  1109.       /* Read in the ppm file. */
  1110.       ppm_readppminit( ifp, &cols, &rows, &maxval, &format);
  1111. !     pixels = ppm_allocarray( cols, rows );
  1112. !     for ( row = 0; row < rows; ++row )
  1113. !     ppm_readppmrow( ifp, pixels[row], cols, maxval, format );
  1114.       pm_close( ifp );
  1115.   
  1116.       /* Figure out the colormap. */
  1117. !     switch ( PPM_FORMAT_TYPE( format ) )
  1118. !     {
  1119.           case PPM_TYPE:
  1120. !     if ( tgaHeader.ImgType == TGA_Mono )
  1121. !         pm_error( "input is not a graymap, filter through ppmtopgm first" );
  1122. !     if ( tgaHeader.ImgType == TGA_Null || tgaHeader.ImgType == TGA_Map )
  1123. !         {
  1124. !         pm_message( "computing colormap..." );
  1125. !         chv = ppm_computecolorhist(
  1126. !         pixels, cols, rows, MAXCOLORS, &ncolors );
  1127. !         if ( chv == (colorhist_vector) 0 )
  1128. !         {
  1129. !         if ( tgaHeader.ImgType == TGA_Map )
  1130. !             pm_error(
  1131. !             "too many colors - try doing a 'ppmquant %d'",
  1132. !             MAXCOLORS );
  1133. !         else
  1134. !             tgaHeader.ImgType = TGA_RGB;
  1135. !         }
  1136. !         else
  1137. !         {
  1138. !         pm_message( "%d colors found", ncolors );
  1139. !         if ( tgaHeader.ImgType == TGA_Null )
  1140. !             tgaHeader.ImgType = TGA_Map;
  1141. !         }
  1142. !         }
  1143. !     break;
  1144. ! 
  1145.           case PGM_TYPE:
  1146.           case PBM_TYPE:
  1147. !     if ( tgaHeader.ImgType == TGA_Null )
  1148. !         tgaHeader.ImgType = TGA_Mono;
  1149. !     else if ( tgaHeader.ImgType == TGA_Map )
  1150. !         {
  1151. !         pm_message( "computing colormap..." );
  1152. !         chv = ppm_computecolorhist(
  1153. !         pixels, cols, rows, MAXCOLORS, &ncolors );
  1154. !         if ( chv == (colorhist_vector) 0 )
  1155. !         pm_error( "can't happen" );
  1156. !         pm_message( "%d colors found", ncolors );
  1157. !         }
  1158. !     break;
  1159.   
  1160.           default:
  1161. !     pm_error( "can't happen" );
  1162. !     }
  1163.   
  1164. !     if ( rle_flag )
  1165. !     {
  1166. !     switch ( tgaHeader.ImgType )
  1167. !         {
  1168. !         case TGA_Mono:
  1169. !         tgaHeader.ImgType = TGA_RLEMono;
  1170. !         break;
  1171. !         case TGA_Map:
  1172. !         tgaHeader.ImgType = TGA_RLEMap;
  1173. !         break;
  1174. !         case TGA_RGB:
  1175. !         tgaHeader.ImgType = TGA_RLERGB;
  1176. !         break;
  1177. !         default:
  1178. !         pm_error( "can't happen" );
  1179. !         }
  1180. !     runlength = (int*) pm_allocrow( cols, sizeof(int) );
  1181. !     }
  1182.       
  1183. !     tgaHeader.IDLength = 0;
  1184. !     tgaHeader.Index_lo = 0;
  1185. !     tgaHeader.Index_hi = 0;
  1186. !     if ( tgaHeader.ImgType == TGA_Map || tgaHeader.ImgType == TGA_RLEMap )
  1187. !     {
  1188.           /* Make a hash table for fast color lookup. */
  1189.           cht = ppm_colorhisttocolorhash( chv, ncolors );
  1190.   
  1191.           tgaHeader.CoMapType = 1;
  1192. !         tgaHeader.Length_lo = ncolors % 256;
  1193. !         tgaHeader.Length_hi = ncolors / 256;
  1194.           tgaHeader.CoSize = 24;
  1195. !     }
  1196.       else
  1197. !     {
  1198.           tgaHeader.CoMapType = 0;
  1199.           tgaHeader.Length_lo = 0;
  1200.           tgaHeader.Length_hi = 0;
  1201.           tgaHeader.CoSize = 0;
  1202. !     }
  1203. !     if ( tgaHeader.ImgType == TGA_RGB || tgaHeader.ImgType == TGA_RLERGB )
  1204. !     tgaHeader.PixelSize = 24;
  1205. !     else
  1206. !     tgaHeader.PixelSize = 8;
  1207.       tgaHeader.X_org_lo = tgaHeader.X_org_hi = 0;
  1208.       tgaHeader.Y_org_lo = tgaHeader.Y_org_hi = 0;
  1209. !     tgaHeader.Width_lo = cols % 256;
  1210. !     tgaHeader.Width_hi = cols / 256;
  1211. !     tgaHeader.Height_lo = rows % 256;
  1212. !     tgaHeader.Height_hi = rows / 256;
  1213.       tgaHeader.AttBits = 0;
  1214.       tgaHeader.Rsrvd = 0;
  1215.       tgaHeader.IntrLve = 0;
  1216.   
  1217. !     /* Write out the Targa header. */
  1218. !     writetga( &tgaHeader, (char*) 0 );
  1219.   
  1220. !     if ( tgaHeader.ImgType == TGA_Map || tgaHeader.ImgType == TGA_RLEMap )
  1221. !     {
  1222. !         /* Write out the Targa colormap. */
  1223. !         for ( i = 0; i < ncolors; ++i )
  1224. !             put_map_entry( &chv[i].color, tgaHeader.CoSize, maxval );
  1225. !     }
  1226.   
  1227.       /* Write out the pixels */
  1228.       for ( row = 0; row < rows; ++row )
  1229. !     {
  1230. !     realrow = row;
  1231. !     if ( tgaHeader.OrgBit == 0 )
  1232. !         realrow = rows - realrow - 1;
  1233. !     if ( rle_flag )
  1234. !         {
  1235. !         compute_runlengths( cols, pixels[realrow], runlength );
  1236. !         for ( col = 0; col < cols; )
  1237. !         {
  1238. !         if ( runlength[col] > 0 )
  1239. !             {
  1240. !             putchar( 0x80 + runlength[col] - 1 );
  1241. !             put_pixel(
  1242. !             &(pixels[realrow][col]),
  1243. !             tgaHeader.ImgType, maxval, cht );
  1244. !             col += runlength[col];
  1245. !             }
  1246. !         else if ( runlength[col] < 0 )
  1247. !             {
  1248. !             putchar( -runlength[col] - 1 );
  1249. !             for ( i = 0; i < -runlength[col]; ++i )
  1250. !             put_pixel(
  1251. !                 &(pixels[realrow][col + i]),
  1252. !                 tgaHeader.ImgType, maxval, cht );
  1253. !             col += -runlength[col];
  1254. !             }
  1255. !         else
  1256. !             pm_error( "can't happen" );
  1257. !         }
  1258. !         }
  1259. !     else
  1260. !         {
  1261. !         for ( col = 0, pP = pixels[realrow]; col < cols; ++col, ++pP )
  1262. !         put_pixel( pP, tgaHeader.ImgType, maxval, cht );
  1263. !         }
  1264. !     }
  1265. ! 
  1266.       exit( 0 );
  1267.       }
  1268.   
  1269. ! static void
  1270. ! writetga( tgaP, id )
  1271. !     struct ImageHeader* tgaP;
  1272. !     char* id;
  1273. !     {
  1274.       unsigned char flags;
  1275.   
  1276. !     putchar( tgaP->IDLength );
  1277. !     putchar( tgaP->CoMapType );
  1278. !     putchar( tgaP->ImgType );
  1279. !     putchar( tgaP->Index_lo );
  1280. !     putchar( tgaP->Index_hi );
  1281. !     putchar( tgaP->Length_lo );
  1282. !     putchar( tgaP->Length_hi );
  1283. !     putchar( tgaP->CoSize );
  1284. !     putchar( tgaP->X_org_lo );
  1285. !     putchar( tgaP->X_org_hi );
  1286. !     putchar( tgaP->Y_org_lo );
  1287. !     putchar( tgaP->Y_org_hi );
  1288. !     putchar( tgaP->Width_lo );
  1289. !     putchar( tgaP->Width_hi );
  1290. !     putchar( tgaP->Height_lo );
  1291. !     putchar( tgaP->Height_hi );
  1292. !     putchar( tgaP->PixelSize );
  1293. !     flags = ( tgaP->AttBits & 0xf ) | ( ( tgaP->Rsrvd & 0x1 ) << 4 ) |
  1294. !         ( ( tgaP->OrgBit & 0x1 ) << 5 ) | ( ( tgaP->OrgBit & 0x3 ) << 6 );
  1295. !     putchar( flags );
  1296. !     if ( tgaP->IDLength )
  1297. !         fwrite( id, 1, (int) tgaP->IDLength, stdout );
  1298. !     }
  1299.       
  1300. ! #if __STDC__
  1301. ! static void
  1302. ! put_map_entry( pixel* valueP, int size, pixval maxval )
  1303. ! #else /*__STDC__*/
  1304. ! static void
  1305. ! put_map_entry( valueP, size, maxval )
  1306. !     pixel* valueP;
  1307. !     int size;
  1308. !     pixval maxval;
  1309. ! #endif /*__STDC__*/
  1310. !     {
  1311.       int j;
  1312. !     pixel p;
  1313.       
  1314. !     switch ( size )
  1315. !     {
  1316.       case 8:                /* Grey scale. */
  1317. !     put_mono( valueP, maxval );
  1318.       break;
  1319.   
  1320.       case 16:            /* 5 bits each of red green and blue. */
  1321.       case 15:            /* Watch for byte order. */
  1322. !     PPM_DEPTH( p, *valueP, maxval, 31 );
  1323. !     j = (int) PPM_GETB( p ) | ( (int) PPM_GETG( p ) << 5 ) |
  1324. !         ( (int) PPM_GETR( p ) << 10 );
  1325. !     putchar( j % 256 );
  1326. !     putchar( j / 256 );
  1327.       break;
  1328.   
  1329.       case 32:
  1330.       case 24:            /* 8 bits each of blue green and red. */
  1331. !     put_rgb( valueP, maxval );
  1332.       break;
  1333.   
  1334.       default:
  1335. !     pm_error( "unknown colormap pixel size (#2) - %d", size );
  1336. !     }
  1337.       }
  1338. ! 
  1339. ! static void
  1340. ! compute_runlengths( cols, pixelrow, runlength )
  1341. !     int cols;
  1342. !     pixel* pixelrow;
  1343. !     int* runlength;
  1344. !     {
  1345. !     int col, start;
  1346. ! 
  1347. !     /* Initialize all run lengths to 0.  (This is just an error check.) */
  1348. !     for ( col = 0; col < cols; ++col )
  1349. !     runlength[col] = 0;
  1350. !     
  1351. !     /* Find runs of identical pixels. */
  1352. !     for ( col = 0; col < cols; )
  1353. !     {
  1354. !     start = col;
  1355. !     do {
  1356. !         ++col;
  1357. !         }
  1358. !     while ( col < cols &&
  1359. !         col - start < 128 &&
  1360. !         PPM_EQUAL( pixelrow[col], pixelrow[start] ) );
  1361. !     runlength[start] = col - start;
  1362. !     }
  1363. !     
  1364. !     /* Now look for runs of length-1 runs, and turn them into negative runs. */
  1365. !     for ( col = 0; col < cols; )
  1366. !     {
  1367. !     if ( runlength[col] == 1 )
  1368. !         {
  1369. !         start = col;
  1370. !         while ( col < cols &&
  1371. !             col - start < 128 &&
  1372. !             runlength[col] == 1 )
  1373. !         {
  1374. !         runlength[col] = 0;
  1375. !         ++col;
  1376. !         }
  1377. !         runlength[start] = - ( col - start );
  1378. !         }
  1379. !     else
  1380. !         col += runlength[col];
  1381. !     }
  1382. !     }
  1383. ! 
  1384. ! #if __STDC__
  1385. ! static void
  1386. ! put_pixel( pixel* pP, int imgtype, pixval maxval, colorhash_table cht )
  1387. ! #else /*__STDC__*/
  1388. ! static void
  1389. ! put_pixel( pP, imgtype, maxval, cht )
  1390. !     pixel* pP;
  1391. !     int imgtype;
  1392. !     pixval maxval;
  1393. !     colorhash_table cht;
  1394. ! #endif /*__STDC__*/
  1395. !     {
  1396. !     switch ( imgtype )
  1397. !     {
  1398. !     case TGA_Mono:
  1399. !     case TGA_RLEMono:
  1400. !     put_mono( pP, maxval );
  1401. !     break;
  1402. !     case TGA_Map:
  1403. !     case TGA_RLEMap:
  1404. !     put_map( pP, cht );
  1405. !     break;
  1406. !     case TGA_RGB:
  1407. !     case TGA_RLERGB:
  1408. !     put_rgb( pP, maxval );
  1409. !     break;
  1410. !     default:
  1411. !     pm_error( "can't happen" );
  1412. !     }
  1413. !     }
  1414. ! 
  1415. ! #if __STDC__
  1416. ! static void
  1417. ! put_mono( pixel* pP, pixval maxval )
  1418. ! #else /*__STDC__*/
  1419. ! static void
  1420. ! put_mono( pP, maxval )
  1421. !     pixel* pP;
  1422. !     pixval maxval;
  1423. ! #endif /*__STDC__*/
  1424. !     {
  1425. !     PPM_DEPTH( *pP, *pP, maxval, (pixval) 255 );
  1426. !     putchar( PPM_GETR( *pP ) );
  1427. !     }
  1428. ! 
  1429. ! static void
  1430. ! put_map( pP, cht )
  1431. !     pixel* pP;
  1432. !     colorhash_table cht;
  1433. !     {
  1434. !     putchar( ppm_lookupcolor( cht, pP ) );
  1435. !     }
  1436. ! 
  1437. ! #if __STDC__
  1438. ! static void
  1439. ! put_rgb( pixel* pP, pixval maxval )
  1440. ! #else /*__STDC__*/
  1441. ! static void
  1442. ! put_rgb( pP, maxval )
  1443. !     pixel* pP;
  1444. !     pixval maxval;
  1445. ! #endif /*__STDC__*/
  1446. !     {
  1447. !     PPM_DEPTH( *pP, *pP, maxval, (pixval) 255 );
  1448. !     putchar( PPM_GETB( *pP ) );
  1449. !     putchar( PPM_GETG( *pP ) );
  1450. !     putchar( PPM_GETR( *pP ) );
  1451. !     }
  1452. diff -cr pbmplus05oct91/ppm/tgatoppm.c pbmplus30oct91/ppm/tgatoppm.c
  1453. *** pbmplus05oct91/ppm/tgatoppm.c    Fri Jun 28 15:37:52 1991
  1454. --- pbmplus30oct91/ppm/tgatoppm.c    Wed Oct 30 09:38:05 1991
  1455. ***************
  1456. *** 36,42 ****
  1457.       int i;
  1458.       unsigned int temp1, temp2;
  1459.       FILE* ifp;
  1460. !     int argn, debug, rows, cols, row, col, realrow;
  1461.       int maxval;
  1462.       pixel** pixels;
  1463.       char* usage = " [-debug] [tgafile]";
  1464. --- 36,42 ----
  1465.       int i;
  1466.       unsigned int temp1, temp2;
  1467.       FILE* ifp;
  1468. !     int argn, debug, rows, cols, row, col, realrow, truerow, baserow;
  1469.       int maxval;
  1470.       pixel** pixels;
  1471.       char* usage = " [-debug] [tgafile]";
  1472. ***************
  1473. *** 172,178 ****
  1474.       temp2 = tga_head.Length_lo + tga_head.Length_hi * 256;
  1475.       if ( ( temp1 + temp2 + 1 ) >= MAXCOLORS )
  1476.           pm_error( "too many colors - %d", ( temp1 + temp2 + 1 ) );
  1477. !     for ( i = temp1; i < ( temp1 + temp2 ); i++ )
  1478.           get_map_entry( ifp, &ColorMap[i], (int) tga_head.CoSize );
  1479.       }
  1480.   
  1481. --- 172,178 ----
  1482.       temp2 = tga_head.Length_lo + tga_head.Length_hi * 256;
  1483.       if ( ( temp1 + temp2 + 1 ) >= MAXCOLORS )
  1484.           pm_error( "too many colors - %d", ( temp1 + temp2 + 1 ) );
  1485. !     for ( i = temp1; i < ( temp1 + temp2 ); ++i )
  1486.           get_map_entry( ifp, &ColorMap[i], (int) tga_head.CoSize );
  1487.       }
  1488.   
  1489. ***************
  1490. *** 186,233 ****
  1491.   
  1492.       /* Read the Targa file body and convert to portable format. */
  1493.       pixels = ppm_allocarray( cols, rows );
  1494. !     for ( row = 0; row < rows; row++ )
  1495.       {
  1496. !     if ( tga_head.IntrLve == TGA_IL_Four )
  1497. !         {
  1498. !         if ( 4 * row < rows )
  1499. !         realrow = 4 * row;
  1500. !         else if ( 2 * row < rows )
  1501. !         {
  1502. !         realrow = row - rows / 4;
  1503. !         realrow = 4 * realrow + 1;
  1504. !         }
  1505. !         else if ( 4 * row < 3 * rows )
  1506. !         {
  1507. !         realrow = row - rows / 2;
  1508. !         realrow = 4 * realrow + 2;
  1509. !         }
  1510. !         else
  1511. !         {
  1512. !         realrow = row - rows / 2 - rows / 4;
  1513. !         realrow = 4 * realrow + 3;
  1514. !         }
  1515. !         }
  1516. !     else if ( tga_head.IntrLve == TGA_IL_Two )
  1517. !         {
  1518. !         if ( 2 * row < rows )
  1519. !         realrow = 2 * row;
  1520. !         else
  1521. !         {
  1522. !         realrow = row - rows / 2;
  1523. !         realrow = 2 * realrow + 1;
  1524. !         }
  1525. !         }
  1526. !     else
  1527. !         realrow = row;
  1528. ! 
  1529.       if ( tga_head.OrgBit == 0 )
  1530.           realrow = rows - realrow - 1;
  1531.   
  1532. !     for ( col = 0; col < cols; col++ )
  1533.           get_pixel( ifp, &(pixels[realrow][col]), (int) tga_head.PixelSize );
  1534.       }
  1535. - 
  1536.       pm_close( ifp );
  1537.   
  1538.       ppm_writeppm( stdout, pixels, cols, rows, (pixval) maxval, 0 );
  1539. --- 186,210 ----
  1540.   
  1541.       /* Read the Targa file body and convert to portable format. */
  1542.       pixels = ppm_allocarray( cols, rows );
  1543. !     truerow = 0;
  1544. !     baserow = 0;
  1545. !     for ( row = 0; row < rows; ++row )
  1546.       {
  1547. !     realrow = truerow;
  1548.       if ( tga_head.OrgBit == 0 )
  1549.           realrow = rows - realrow - 1;
  1550.   
  1551. !     for ( col = 0; col < cols; ++col )
  1552.           get_pixel( ifp, &(pixels[realrow][col]), (int) tga_head.PixelSize );
  1553. +     if ( tga_head.IntrLve == TGA_IL_Four )
  1554. +         truerow += 4;
  1555. +     else if ( tga_head.IntrLve == TGA_IL_Two )
  1556. +         truerow += 2;
  1557. +     else
  1558. +         ++truerow;
  1559. +     if ( truerow >= rows )
  1560. +         truerow = ++baserow;
  1561.       }
  1562.       pm_close( ifp );
  1563.   
  1564.       ppm_writeppm( stdout, pixels, cols, rows, (pixval) maxval, 0 );
  1565. ***************
  1566. *** 326,332 ****
  1567.           { /* Have to restart run. */
  1568.           unsigned char i;
  1569.           i = getbyte( ifp );
  1570. !         RLE_flag = ( i & 0x80 ) >> 7;
  1571.           if ( RLE_flag == 0 )
  1572.           /* Stream of unencoded pixels. */
  1573.           RLE_count = i + 1;
  1574. --- 303,309 ----
  1575.           { /* Have to restart run. */
  1576.           unsigned char i;
  1577.           i = getbyte( ifp );
  1578. !         RLE_flag = ( i & 0x80 );
  1579.           if ( RLE_flag == 0 )
  1580.           /* Stream of unencoded pixels. */
  1581.           RLE_count = i + 1;
  1582. ***************
  1583. *** 334,344 ****
  1584.           /* Single pixel replicated. */
  1585.           RLE_count = i - 127;
  1586.           /* Decrement count & get pixel. */
  1587. !         RLE_count--;
  1588.           }
  1589.       else
  1590.           { /* Have already read count & (at least) first pixel. */
  1591. !         RLE_count--;
  1592.           if ( RLE_flag != 0 )
  1593.           /* Replicated pixels. */
  1594.           goto PixEncode;
  1595. --- 311,321 ----
  1596.           /* Single pixel replicated. */
  1597.           RLE_count = i - 127;
  1598.           /* Decrement count & get pixel. */
  1599. !         --RLE_count;
  1600.           }
  1601.       else
  1602.           { /* Have already read count & (at least) first pixel. */
  1603. !         --RLE_count;
  1604.           if ( RLE_flag != 0 )
  1605.           /* Replicated pixels. */
  1606.           goto PixEncode;
  1607.  
  1608. exit 0 # Just in case...
  1609. -- 
  1610. Kent Landfield                   INTERNET: kent@sparky.IMD.Sterling.COM
  1611. Sterling Software, IMD           UUCP:     uunet!sparky!kent
  1612. Phone:    (402) 291-8300         FAX:      (402) 291-4362
  1613. Please send comp.sources.misc-related mail to kent@uunet.uu.net.
  1614.