home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 309.lha / PBM_PLUS / pnm / pnmpaste.c < prev    next >
C/C++ Source or Header  |  1980-12-04  |  3KB  |  118 lines
  1. /* pnmpaste.c - paste a rectangle into a portable anymap
  2. **
  3. ** Copyright (C) 1989 by Jef Poskanzer.
  4. **
  5. ** Permission to use, copy, modify, and distribute this software and its
  6. ** documentation for any purpose and without fee is hereby granted, provided
  7. ** that the above copyright notice appear in all copies and that both that
  8. ** copyright notice and this permission notice appear in supporting
  9. ** documentation.  This software is provided "as is" without express or
  10. ** implied warranty.
  11. */
  12.  
  13. #include <stdio.h>
  14. #include "pnm.h"
  15.  
  16. main( argc, argv )
  17. int argc;
  18. char *argv[];
  19.     {
  20.     FILE *ifd1, *ifd2;
  21.     register xel **xels1, **xels2, *x1P, *x2P;
  22.     xelval maxval1, maxval2, newmaxval;
  23.     int argn, rows1, cols1, format1, x, y;
  24.     int rows2, cols2, format2, newformat, row;
  25.     register int col;
  26.     char *usage = "frompnmfile x y [intopnmfile]";
  27.  
  28.     pm_progname = argv[0];
  29.  
  30.     argn = 1;
  31.  
  32.     if ( argn == argc )
  33.     pm_usage( usage );
  34.     ifd1 = pm_openr( argv[argn] );
  35.     argn++;
  36.  
  37.     if ( argn == argc )
  38.     pm_usage( usage );
  39.     if ( sscanf( argv[argn], "%d", &x ) != 1 )
  40.     pm_usage( usage );
  41.     argn++;
  42.     if ( argn == argc )
  43.     pm_usage( usage );
  44.     if ( sscanf( argv[argn], "%d", &y ) != 1 )
  45.     pm_usage( usage );
  46.     argn++;
  47.  
  48.     if ( argn != argc )
  49.     {
  50.     ifd2 = pm_openr( argv[argn] );
  51.     argn++;
  52.     }
  53.     else
  54.     ifd2 = stdin;
  55.  
  56.     if ( argn != argc )
  57.     pm_usage( usage );
  58.  
  59.     xels1 = pnm_readpnm( ifd1, &cols1, &rows1, &maxval1, &format1 );
  60.     pm_close( ifd1 );
  61.  
  62.     xels2 = pnm_readpnm( ifd2, &cols2, &rows2, &maxval2, &format2 );
  63.     pm_close( ifd2 );
  64.  
  65.     if ( format1 > format2 )
  66.     {
  67.     newformat = format1;
  68.     newmaxval = maxval1;
  69.     }
  70.     else
  71.     {
  72.     newformat = format2;
  73.     newmaxval = maxval2;
  74.     }
  75.     pnm_promoteformat( xels1, cols2, rows1, maxval1, format1, newmaxval, newformat );
  76.     pnm_promoteformat( xels2, cols2, rows2, maxval2, format2, newmaxval, newformat );
  77.  
  78.     if ( x <= -cols2 )
  79.     pm_error(
  80.         "x is too negative -- the second anymap has only %d cols",
  81.         cols2, 0,0,0,0 );
  82.     if ( y <= -rows2 )
  83.     pm_error(
  84.         "y is too negative -- the second anymap has only %d rows",
  85.         rows2, 0,0,0,0 );
  86.     
  87.     if ( x < 0 )
  88.     x = cols2 - x;
  89.     if ( y < 0 )
  90.     y = rows2 - y;
  91.  
  92.     if ( x >= cols2 )
  93.     pm_error(
  94.         "x is too large -- the second anymap has only %d cols",
  95.         cols2, 0,0,0,0 );
  96.     if ( y >= rows2 )
  97.     pm_error(
  98.         "y is too large -- the second anymap has only %d rows",
  99.         rows2, 0,0,0,0 );
  100.     if ( x + cols1 > cols2 )
  101.     pm_error(
  102.         "x + width is too large by %d pixels", x + cols1 - cols2, 0,0,0,0 );
  103.     if ( y + rows1 > rows2 )
  104.     pm_error(
  105.         "y + height is too large by %d pixels", y + rows1 - rows2,
  106.         0,0,0,0 );
  107.  
  108.     for ( row = 0; row < rows1; row++ )
  109.     {
  110.         for ( col = 0, x1P = xels1[row], x2P = &(xels2[row+y][x]); col < cols1; col++, x1P++, x2P++ )
  111.         *x2P = *x1P;
  112.     }
  113.  
  114.     pnm_writepnm( stdout, xels2, cols2, rows2, newmaxval, newformat );
  115.  
  116.     exit( 0 );
  117.     }
  118.