libvips/contrib/mitsub/mitsub.c

492 lines
9.4 KiB
C

/*
* Version which sents raw data to the printer, which enlarges and centers.
* Works for monochrome and four band IM_TYPE_CMYK images. Uses putc instead of
* fprintf. Sents data straight to the printer. If enlargement, it is full and
* x and y ratios are the same (aspect ratio is not changed)
*
* Helene Chahine, July 95
*
* JC 4/8/95
* - small tidies and bug fixes
* - now does 1, 3 and 4 band
* - resets printer after use
* JC 1/9/95
* - colour reverse mode added
*/
/*
This file is part of VIPS.
VIPS is free software; you can redistribute it and/or modify
it under the terms of the GNU Lesser General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*/
/*
These files are distributed with VIPS - http://www.vips.ecs.soton.ac.uk
*/
#ifdef HAVE_CONFIG_H
#include <config.h>
#endif /*HAVE_CONFIG_H*/
#include <vips/intl.h>
#include <stdio.h>
#include <string.h>
#include <vips/vips.h>
#include <vips/util.h>
#define NBPRINT 1 /* Maximun 15 copies */
#define VMAX 2904 /* Number of horizontal pixels */
#define HMAX 2368 /* Number of vertical pixels */
int
main( int argc, char *argv[] )
{
int enlar = 0;
int center = 0;
int rev = 0;
IMAGE *vips;
FILE *out;
int n1, n2;
int x, y;
int xsize, ysize;
int c;
PEL *p;
if( im_init_world( argv[0] ) )
error_exit( "unable to start VIPS" );
while( --argc > 0 && (*++argv)[0] == '-' )
while( (c = *++argv[0]) )
switch( c ) {
case 'e':
enlar = 1;
break;
case 'c':
center = 1;
break;
case 'r':
rev = 1;
break;
default:
error_exit( "mitsub: illegal option %c", c );
}
if( argc != 2 )
error_exit( "usage: mitsub [-ecr] vipsfile mitfile\n"
"where:\n"
"\tvipsfile may be 1, 3 or 4 bands for mono, IM_TYPE_RGB or "
"IM_TYPE_CMYK printing\n"
"\tmitfile may be '-', meaning send to stdout\n"
"\t-e means enlarge to fill page\n"
"\t-c means centre within page\n"
"\t-r means reverse black/white\n"
"\tNOTE: data is sent raw, with 0 == no ink - all correction is up to "
"you\n"
"example:\n"
"\t%% mitsub -ec fred.v - > /dev/bpp0" );
if( !(vips = im_open( argv[0], "r" )) )
error_exit( "mitsub: unable to open \"%s\" for input",
argv[0] );
if( strcmp( argv[1], "-" ) == 0 )
out = stdout;
else if( !(out = fopen( argv[1], "w" )) )
error_exit( "mitsub: unable to open \"%s\" for output",
argv[1] );
if( vips->Coding != IM_CODING_NONE || vips->BandFmt != IM_BANDFMT_UCHAR )
error_exit( "mitsub: uncoded uchar only" );
if( vips->Bands != 1 && vips->Bands != 3 && vips->Bands != 4 )
error_exit( "mitsub: 1,3 and 4 band images only" );
/* Set xsize and ysize.
*/
if( vips->Xsize <= vips->Ysize ) {
xsize = vips->Xsize;
ysize = vips->Ysize;
}
else {
im_diag( "mitsub", "%s", _( "rotating ..." ) );
xsize = vips->Ysize;
ysize = vips->Xsize;
}
/* Shrink if image is too big.
*/
if( xsize > HMAX || ysize > VMAX ) {
double x_factor = HMAX/xsize;
double y_factor = VMAX/ysize;
double factor = IM_MAX( x_factor, y_factor );
IMAGE *sh = im_open( "shrink", "t" );
im_diag( "mitsub", _( "shrinking by %g ..." ), factor );
if( !sh || im_shrink( vips, sh, factor, factor ) )
error_exit( "mitsub: shrink failed" );
vips = sh;
enlar = 0;
}
/* On line command and buffer clear.
*/
putc( 0x11, out );
putc( 0x1b, out );
putc( 'Z', out );
/* Memory clear.
*/
putc( 0x1b, out );
putc( 'Z', out );
/* Media size. (Size A4)
*/
putc( 0x1b, out );
putc( '#', out );
putc( 'P', out );
putc( '0', out );
/* Enlargement.
*/
if( enlar ) {
double rh, rv;
int n, m;
/* Enlarge method: ('0'=simple enlargement,
* '1'=linear enlargement)
*/
putc( 0x1b, out );
putc( '&', out );
putc( 'O', out );
putc( '1', out );
rh = HMAX/(double) xsize;
rv = VMAX/(double) ysize;
if( rh > 8 || rv > 8 ) {
n = 8;
m = 1;
}
else if( rh > rv ) {
double fact = VMAX/255;
n = 255;
m = (int) ysize/fact + 1;
}
else {
double fact = HMAX/255;
n = 255;
m = (int) xsize/fact + 1;
}
im_diag( "mitsub", _( "enlarging by %g ..." ), (double) n/m );
/* Horizontal enlarge.
*/
putc( 0x1b, out );
putc( '&', out );
putc( 'P', out );
putc( n, out );
putc( m, out );
/* Vertical enlarge.
*/
putc( 0x1b, out );
putc( '&', out );
putc( 'Q', out );
putc( n, out );
putc( m, out );
}
else {
/* No enlargement.
*/
putc( 0x1b, out );
putc( '&', out );
putc( 'O', out );
putc( '1', out );
putc( 0x1b, out );
putc( '&', out );
putc( 'P', out );
putc( 1, out );
putc( 1, out );
putc( 0x1b, out );
putc( '&', out );
putc( 'Q', out );
putc( 1, out );
putc( 1, out );
}
if( rev ) {
/* Colour reversing.
*/
putc( 0x1b, out );
putc( '&', out );
putc( 'W', out );
putc( '2', out );
}
else {
/* No reverse.
*/
putc( 0x1b, out );
putc( '&', out );
putc( 'W', out );
putc( '0', out );
}
/* Number of copies.
*/
putc( 0x1b, out );
putc( '#', out );
putc( 'C', out );
putc( NBPRINT, out );
/* Left margin.
*/
putc( 0x1b, out );
putc( '&', out );
putc( 'S', out );
putc( 0, out );
/* Top margin.
*/
putc( 0x1b, out );
putc( '&', out );
putc( 'T', out );
putc( 0, out );
/* Centering. ('1' = centering available, '0'= no centering).
*/
if( center ) {
im_diag( "mitsub", "%s", _( "centering ..." ) );
putc( 0x1b, out );
putc( '&', out );
putc( 'C', out );
putc( '1', out );
}
else {
/* No centering.
*/
putc( 0x1b, out );
putc( '&', out );
putc( 'C', out );
putc( '0', out );
}
/* Transfer format = pixel order method for colour, = frame order
* method for monochrome.
*/
switch( vips->Bands ) {
case 3:
case 4:
putc( 0x1b, out );
putc( '&', out );
putc( 'A', out );
putc( '2', out );
break;
case 1:
putc( 0x1b, out );
putc( '&', out );
putc( 'A', out );
putc( '0', out );
break;
default:
error_exit( "internal error" );
/*NOTREACHED*/
}
/* Colour specification.
*/
switch( vips->Bands ) {
case 4:
case 1:
/* IM_TYPE_CMYK. For mono, send just K.
*/
putc( 0x1b, out );
putc( '&', out );
putc( 'I', out );
putc( '2', out );
break;
case 3:
/* IM_TYPE_RGB.
*/
putc( 0x1b, out );
putc( '&', out );
putc( 'I', out );
putc( '0', out );
break;
default:
error_exit( "internal error" );
/*NOTREACHED*/
}
/* Gray scale level.
*/
putc( 0x1b, out );
putc( '#', out );
putc( 'L', out );
putc( 8, out );
/* Rotation.
*/
if( vips->Xsize <= vips->Ysize ) {
putc( 0x1b, out );
putc( '#', out );
putc( 'R', out );
putc( '0', out );
}
else {
putc( 0x1b, out );
putc( '#', out );
putc( 'R', out );
putc( '1', out );
}
/* Horizontal shift.
*/
putc( 0x1b, out );
putc( '&', out );
putc( 'J', out );
putc( 0, out );
putc( 0, out );
/* Vertical shift.
*/
putc( 0x1b, out );
putc( '&', out );
putc( 'K', out );
putc( 0, out );
putc( 0, out );
/* Number of horizontal pixels.
*/
n1 = vips->Xsize >> 8;
n2 = vips->Xsize & 0xff;
putc( 0x1b, out );
putc( '&', out );
putc( 'H', out );
putc( n1, out );
putc( n2, out );
/* Number of vertical pixels.
*/
n1 = vips->Ysize >> 8;
n2 = vips->Ysize & 0xff;
putc( 0x1b, out );
putc( '&', out );
putc( 'V', out );
putc( n1, out );
putc( n2, out );
/* Transfer colour (for monochrome image only).
*/
if( vips->Bands == 1 ) {
putc( 0x1b, out );
putc( 'C', out );
putc( '4', out );
}
/* Image data transfer. Image must be sent as YMCK.
*/
putc( 0x1b, out );
putc( 'O', out );
if( im_incheck( vips ) )
error_exit( "mitsub: unable to read image data" );
p = (PEL *) vips->data;
switch( vips->Bands ) {
case 4:
im_diag( "mitsub", "%s", _( "sending IM_TYPE_CMYK ..." ) );
for( y = 0; y < vips->Ysize; y++ )
for( x = 0; x < vips->Xsize; x++ ) {
putc( p[2], out );
putc( p[1], out );
putc( p[0], out );
putc( p[3], out );
p += 4;
}
break;
case 3:
im_diag( "mitsub", "%s", _( "sending IM_TYPE_RGB ..." ) );
for( y = 0; y < vips->Ysize; y++ )
for( x = 0; x < vips->Xsize; x++ ) {
putc( p[0], out );
putc( p[1], out );
putc( p[2], out );
p += 3;
}
break;
case 1:
im_diag( "mitsub", "%s", _( "sending K ..." ) );
for( y = 0; y < vips->Ysize; y++ )
for( x = 0; x < vips->Xsize; x++ )
putc( *p++, out );
break;
}
/* Form feed. Page end.
*/
putc( 0x0c, out );
/* Now try to reset printer to default settings.
*
* No enlargement.
*/
putc( 0x1b, out );
putc( '&', out );
putc( 'O', out );
putc( '1', out );
putc( 0x1b, out );
putc( '&', out );
putc( 'P', out );
putc( 1, out );
putc( 1, out );
putc( 0x1b, out );
putc( '&', out );
putc( 'Q', out );
putc( 1, out );
putc( 1, out );
/* No centering.
*/
putc( 0x1b, out );
putc( '&', out );
putc( 'C', out );
putc( '0', out );
/* No colour reverse.
*/
putc( 0x1b, out );
putc( '&', out );
putc( 'W', out );
putc( '0', out );
return( 0 );
}