aboutsummaryrefslogtreecommitdiff
path: root/frontend/pisa_scan_tool.cc
diff options
context:
space:
mode:
Diffstat (limited to 'frontend/pisa_scan_tool.cc')
-rw-r--r--frontend/pisa_scan_tool.cc591
1 files changed, 591 insertions, 0 deletions
diff --git a/frontend/pisa_scan_tool.cc b/frontend/pisa_scan_tool.cc
new file mode 100644
index 0000000..2ebc577
--- /dev/null
+++ b/frontend/pisa_scan_tool.cc
@@ -0,0 +1,591 @@
+/*
+ SANE EPSON backend
+ Copyright (C) 2001, 2005, 2008 SEIKO EPSON CORPORATION
+
+ Date Author Reason
+ 06/01/2001 N.Sasaki New
+
+ This file is part of the `iscan' program.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU 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 General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+ As a special exception, the copyright holders give permission
+ to link the code of this program with the esmod library and
+ distribute linked combinations including the two. You must obey
+ the GNU General Public License in all respects for all of the
+ code used other then esmod.
+*/
+
+/*------------------------------------------------------------*/
+#include <stdio.h>
+#include <string.h>
+
+/*------------------------------------------------------------*/
+#include "pisa_scan_tool.h"
+#include "pisa_error.h"
+#include "pisa_default_val.h"
+
+/*------------------------------------------------------------*/
+static int build_lineart ( pisa_image_info * info,
+ unsigned char do_clr,
+ long threshold );
+static int build_halftone ( pisa_image_info * info,
+ unsigned char do_clr,
+ unsigned char halftone,
+ long threshold );
+static int build_dither ( pisa_image_info * info,
+ unsigned char do_clr,
+ unsigned char halftone,
+ long threshold );
+static unsigned char dropout ( unsigned char red,
+ unsigned char grn,
+ unsigned char blu,
+ unsigned char do_clr,
+ long thdiff = 0 );
+
+/*------------------------------------------------------------*/
+int calc_rowbytes ( int width, pisa_pixel_type type )
+{
+ int rowbytes;
+
+ rowbytes = width;
+
+ switch ( type )
+ {
+ case PISA_PT_BW:
+ rowbytes = ( width + 7 ) / 8;
+ break;
+
+ case PISA_PT_GRAY:
+ rowbytes = width;
+ break;
+
+ case PISA_PT_RGB:
+ rowbytes = width * 3;
+ break;
+ }
+
+ return rowbytes;
+}
+
+/*------------------------------------------------------------*/
+int calc_bitperpix ( pisa_pixel_type pixel, pisa_bitdepth_type bitdepth )
+{
+ int bitperpix;
+
+ bitperpix = 8;
+ bitdepth = bitdepth;
+
+ switch ( pixel )
+ {
+ case PISA_PT_BW:
+ bitperpix = 1;
+ break;
+
+ case PISA_PT_GRAY:
+ bitperpix = 8;
+ break;
+
+ case PISA_PT_RGB:
+ bitperpix = 24;
+ break;
+ }
+
+ return bitperpix;
+}
+
+/*------------------------------------------------------------*/
+int tool_lut ( pisa_image_info * info,
+ const gamma_struct * lut )
+{
+ int i, j;
+ unsigned char * img;
+
+ for ( i = 0; i < info->m_height; i++ )
+ {
+ img = info->m_img + i * info->m_rowbytes;
+
+ for ( j = 0; j < info->m_width; j++ )
+ {
+ // red
+ * img = lut->gamma_r [ * img ];
+ img++;
+ // green
+ * img = lut->gamma_g [ * img ];
+ img++;
+ // blue
+ * img = lut->gamma_b [ * img ];
+ img++;
+ }
+ }
+
+ return PISA_ERR_SUCCESS;
+}
+
+
+/*------------------------------------------------------------*/
+int tool_matrix ( pisa_image_info * info,
+ int saturation,
+ const double * color_profile )
+{
+ int i, j;
+ int color [ 9 ];
+ double color_corr [ 9 ];
+ int red, grn, blu;
+ int result_red, result_grn, result_blu;
+ unsigned char * img;
+ int max;
+
+ max = 0xff << 10;
+
+ generate_color_coef ( color_corr, color_profile, saturation );
+
+ for ( i = 0; i < 9; i++ )
+ color [ i ] = ( int ) ( color_corr [ i ] * ( 1 << 10 ) );
+
+ for ( i = 0; i < info->m_height; i++ )
+ {
+ img = info->m_img + i * info->m_rowbytes;
+
+ for ( j = 0; j < info->m_width; j++ )
+ {
+ red = * ( img + 0 );
+ grn = * ( img + 1 );
+ blu = * ( img + 2 );
+
+ result_red = ( int ) ( color [ 0 ] * red + color [ 1 ] * grn + color [ 2 ] * blu );
+ result_grn = ( int ) ( color [ 3 ] * red + color [ 4 ] * grn + color [ 5 ] * blu );
+ result_blu = ( int ) ( color [ 6 ] * red + color [ 7 ] * grn + color [ 8 ] * blu );
+
+ if ( result_red < 0 ) result_red = 0;
+ if ( result_red > max ) result_red = max;
+ if ( result_grn < 0 ) result_grn = 0;
+ if ( result_grn > max ) result_grn = max;
+ if ( result_blu < 0 ) result_blu = 0;
+ if ( result_blu > max ) result_blu = max;
+
+ * ( img + 0 ) = result_red >> 10;
+ * ( img + 1 ) = result_grn >> 10;
+ * ( img + 2 ) = result_blu >> 10;
+
+ img += 3;
+ }
+ }
+
+ return PISA_ERR_SUCCESS;
+}
+
+/*------------------------------------------------------------*/
+int generate_color_coef ( double * dst,
+ const double * src,
+ int saturation )
+{
+ int i, j;
+ int color_corr [ 3 ] [ 3 ];
+ double tmp_color [ 3 ] [ 3 ];
+ int val;
+
+ // build saturate
+ val = 300 + 2 * saturation;
+
+ for ( i = 0; i < 3; i++ )
+ for ( j = 0; j < 3; j++ )
+ color_corr [ i ] [ j ] = -saturation;
+
+ color_corr [ 0 ] [ 0 ] =
+ color_corr [ 1 ] [ 1 ] =
+ color_corr [ 2 ] [ 2 ] = val;
+
+ // build color filter
+ for ( i = 0; i < 3; i++ )
+ for ( j = 0; j < 3; j++ )
+ {
+ tmp_color [ i ] [ j ] = color_corr [ 0 ] [ j ] * src [ i * 3 + 0 ];
+ tmp_color [ i ] [ j ] += color_corr [ 1 ] [ j ] * src [ i * 3 + 1 ];
+ tmp_color [ i ] [ j ] += color_corr [ 2 ] [ j ] * src [ i * 3 + 2 ];
+ }
+
+ for ( i = 0; i < 3; i++ )
+ for ( j = 0; j < 3; j++ )
+ dst [ i * 3 + j ] = tmp_color [ i ] [ j ] / 300.0;
+
+ return PISA_ERR_SUCCESS;
+}
+
+
+/*------------------------------------------------------------*/
+int build_gray ( pisa_image_info * info,
+ unsigned char do_clr )
+{
+ long i, j;
+ unsigned char val;
+ unsigned char * img;
+
+ for ( i = 0; i < info->m_height; i++ )
+ {
+ img = info->m_img + i * info->m_rowbytes;
+ for ( j = 0; j < info->m_width; j++ )
+ {
+ val = dropout ( * ( img + 0 ), * ( img + 1 ), * ( img + 2 ),
+ do_clr );
+ * ( img + 0 ) = val;
+ * ( img + 1 ) = val;
+ * ( img + 2 ) = val;
+ img += 3;
+ }
+ }
+
+ return PISA_ERR_SUCCESS;
+}
+
+
+/*------------------------------------------------------------*/
+int build_bw ( pisa_image_info * info,
+ unsigned char do_clr,
+ unsigned char halftone,
+ long threshold )
+{
+ int ret;
+
+ ret = PISA_ERR_PARAMETER;
+
+ switch ( halftone )
+ {
+ case PISA_HT_NONE:
+ ret = build_lineart ( info, do_clr, threshold );
+ break;
+
+ case PISA_HT_TONEA:
+ case PISA_HT_TONEB:
+ case PISA_HT_TONEC:
+ ret = build_halftone ( info, do_clr, halftone, threshold );
+ break;
+
+ case PISA_HT_DITHERA:
+ case PISA_HT_DITHERB:
+ case PISA_HT_DITHERC:
+ case PISA_HT_DITHERD:
+ ret = build_dither ( info, do_clr, halftone, threshold );
+ break;
+ }
+
+ return ret;
+}
+
+
+
+/*------------------------------------------------------------*/
+static int build_lineart ( pisa_image_info * info,
+ unsigned char do_clr,
+ long threshold )
+{
+ int i, j;
+ unsigned char val;
+ unsigned char * img;
+ long thdiff;
+
+ thdiff = 128 - threshold;
+
+ for ( i = 0; i < info->m_height; i++ )
+ {
+ img = info->m_img + i * info->m_rowbytes;
+ for ( j = 0; j < info->m_width; j++ )
+ {
+ val = dropout ( * img, * ( img + 1 ), * ( img + 2 ),
+ do_clr, thdiff );
+ if ( val > 128 )
+ val = 255;
+ else
+ val = 0;
+
+ * ( img + 0 ) = val;
+ * ( img + 1 ) = val;
+ * ( img + 2 ) = val;
+ img += 3;
+ }
+ }
+
+ return PISA_ERR_SUCCESS;
+}
+
+
+/*------------------------------------------------------------*/
+static long Hard [ 8 ] [ 8 ] =
+{
+ { 128, 128, 128, 128, 128, 128, 128, 128 },
+ { 128, 128, 128, 128, 128, 128, 128, 128 },
+ { 128, 128, 128, 128, 128, 128, 128, 128 },
+ { 128, 128, 128, 128, 128, 128, 128, 128 },
+ { 128, 128, 128, 128, 128, 128, 128, 128 },
+ { 128, 128, 128, 128, 128, 128, 128, 128 },
+ { 128, 128, 128, 128, 128, 128, 128, 128 },
+ { 128, 128, 128, 128, 128, 128, 128, 128 }
+};
+
+static long Soft [ 8 ] [ 8 ] =
+{
+ { 131, 136, 136, 131, 124, 119, 119, 124 },
+ { 136, 149, 149, 136, 119, 106, 106, 119 },
+ { 136, 149, 149, 136, 119, 106, 106, 119 },
+ { 128, 128, 128, 128, 128, 128, 128, 128 },
+ { 131, 136, 136, 131, 124, 119, 119, 124 },
+ { 124, 119, 119, 124, 131, 136, 136, 131 },
+ { 119, 106, 106, 119, 136, 149, 149, 136 },
+ { 124, 119, 119, 124, 131, 136, 136, 131 }
+};
+
+static long Net [ 8 ] [ 8 ] =
+{
+ { 146, 173, 173, 146, 109, 82, 82, 109 },
+ { 173, 236, 236, 173, 82, 19, 19, 82 },
+ { 173, 236, 236, 173, 82, 19, 19, 82 },
+ { 146, 173, 173, 146, 109, 82, 82, 109 },
+ { 109, 82, 82, 109, 148, 173, 173, 146 },
+ { 82, 19, 19, 82, 173, 236, 236, 173 },
+ { 82, 19, 19, 82, 173, 236, 236, 173 },
+ { 109, 89, 82, 109, 146, 173, 173, 146 }
+};
+
+static long Bayer [ 4 ] [ 4 ] =
+{
+ { 248, 120, 216, 88 },
+ { 56, 184, 24, 152 },
+ { 200, 72, 232, 104 },
+ { 8, 136, 40, 168 }
+};
+
+static long Spiral [ 4 ] [ 4 ] =
+{
+ { 40, 152, 136, 24 },
+ { 168, 248, 232, 120 },
+ { 184, 200, 216, 104 },
+ { 56, 72, 88, 8 }
+};
+
+static long Net4x4 [ 4 ] [ 4 ] =
+{
+ { 24, 40, 152, 104 },
+ { 56, 248, 232, 136 },
+ { 168, 200, 216, 88 },
+ { 120, 184, 72, 8 }
+};
+
+static long Net8x8 [ 8 ] [ 8 ] =
+{
+ { 236, 188, 52, 4, 68, 100, 164, 228 },
+ { 180, 44, 12, 140, 132, 92, 108, 172 },
+ { 36, 20, 148, 212, 204, 124, 84, 76 },
+ { 28, 156, 220, 252, 244, 196, 116, 60 },
+ { 68, 100, 164, 228, 236, 188, 52, 4 },
+ { 132, 92, 108, 172, 180, 44, 12, 140 },
+ { 204, 124, 84, 76, 36, 20, 148, 212 },
+ { 244, 196, 116, 60, 28, 156, 220, 252 }
+};
+
+static struct _halftone
+{
+ long * matrix;
+ long size;
+} proc_halftone [ 8 ] =
+{
+ { 0, 8 },
+ { Hard [ 0 ], 8 },
+ { Soft [ 0 ], 8 },
+ { Net [ 0 ], 8 },
+ { Bayer [ 0 ], 4 },
+ { Spiral [ 0 ], 4 },
+ { Net4x4 [ 0 ], 4 },
+ { Net8x8 [ 0 ], 8 }
+};
+
+static int build_halftone ( pisa_image_info * info,
+ unsigned char do_clr,
+ unsigned char halftone,
+ long threshold )
+{
+ int i, j, k;
+ long sc1, sc2, sc3, sc4, sc5, sc6, long_val;
+ unsigned char val;
+ unsigned char * img;
+ long thdiff, thre;
+ long * pattern;
+ long matrix_size;
+ long * rowa, * rowb, * rowc;
+
+ thdiff = 128 - threshold;
+
+ pattern = proc_halftone [ halftone ].matrix;
+ if ( pattern == 0 )
+ return PISA_ERR_PARAMETER;
+
+ matrix_size = proc_halftone [ halftone ].size;
+
+ rowa = new long [ info->m_width + 10 ];
+ rowb = new long [ info->m_width + 10 ];
+ rowc = new long [ info->m_width + 10 ];
+
+ ::memset ( rowa, 0, ( info->m_width + 10 ) * sizeof ( long ) );
+ ::memset ( rowb, 0, ( info->m_width + 10 ) * sizeof ( long ) );
+ ::memset ( rowc, 0, ( info->m_width + 10 ) * sizeof ( long ) );
+
+ for ( i = 0; i < info->m_height; i++ )
+ {
+ img = info->m_img + i * info->m_rowbytes;
+
+ for ( j = 0; j < info->m_width; j++ )
+ {
+ k = j + 2;
+ sc1 = * ( rowa + k );
+ sc2 = * ( rowb + k - 1 );
+ sc3 = * ( rowb + k );
+ sc4 = * ( rowb + k + 1 );
+ sc5 = * ( rowc + k - 2 );
+ sc6 = * ( rowc + k - 1 );
+
+ val = dropout ( * img, * ( img + 1 ), * ( img + 2 ),
+ do_clr, thdiff );
+ long_val = val + ( sc3 + sc6 ) / 4 + ( sc1 + sc2 + sc4 + sc5 ) / 8;
+ thre = * ( pattern + ( i & ( matrix_size - 1 ) ) * matrix_size +
+ ( j & ( matrix_size - 1 ) ) );
+ if ( long_val >= thre )
+ {
+ val = 255;
+ * ( rowc + k ) = long_val - 255;
+ }
+ else
+ {
+ val = 0;
+ * ( rowc + k ) = long_val;
+ }
+
+ * ( img + 0 ) = val;
+ * ( img + 1 ) = val;
+ * ( img + 2 ) = val;
+ img += 3;
+ }
+ ::memcpy ( rowa, rowb, ( info->m_width + 10 ) * sizeof ( long ) );
+ ::memcpy ( rowb, rowc, ( info->m_width + 10 ) * sizeof ( long ) );
+ ::memset ( rowc, 0, ( info->m_width + 10 ) * sizeof ( long ) );
+ }
+
+ delete [ ] rowa;
+ delete [ ] rowb;
+ delete [ ] rowc;
+
+ return PISA_ERR_SUCCESS;
+}
+
+
+/*------------------------------------------------------------*/
+static int build_dither ( pisa_image_info * info,
+ unsigned char do_clr,
+ unsigned char halftone,
+ long threshold )
+{
+ int i, j;
+ unsigned char val;
+ unsigned char * img;
+ long thdiff, thre;
+ long * pattern;
+ long matrix_size;
+
+ thdiff = 128 - threshold;
+
+ pattern = proc_halftone [ halftone ].matrix;
+ if ( pattern == 0 )
+ return PISA_ERR_PARAMETER;
+
+ matrix_size = proc_halftone [ halftone ].size;
+
+ for ( i = 0; i < info->m_height; i++ )
+ {
+ img = info->m_img + i * info->m_rowbytes;
+ for ( j = 0; j < info->m_width; j++ )
+ {
+ val = dropout ( * img, * ( img + 1 ), * ( img + 2 ),
+ do_clr, thdiff );
+ thre = * ( pattern + ( i & ( matrix_size - 1 ) ) * matrix_size +
+ ( j & ( matrix_size - 1 ) ) );
+ if ( ( long ) val >= thre )
+ val = 255;
+ else
+ val = 0;
+ * ( img + 0 ) = val;
+ * ( img + 1 ) = val;
+ * ( img + 2 ) = val;
+ }
+ }
+
+ return PISA_ERR_SUCCESS;
+}
+
+/*------------------------------------------------------------*/
+static unsigned char dropout ( unsigned char red,
+ unsigned char grn,
+ unsigned char blu,
+ unsigned char do_clr,
+ long thdiff )
+{
+ unsigned char ret;
+ long val;
+
+ ret = 0;
+
+ if ( thdiff != 0 )
+ {
+ // red
+ val = red + thdiff;
+ if ( val < 0 ) val = 0;
+ if ( val > 255 ) val = 255;
+ red = val;
+
+ // green
+ val = grn + thdiff;
+ if ( val < 0 ) val = 0;
+ if ( val > 255 ) val = 255;
+ grn = val;
+
+ // blue
+ val = blu + thdiff;
+ if ( val < 0 ) val = 0;
+ if ( val > 255 ) val = 255;
+ blu = val;
+ }
+
+ switch ( do_clr )
+ {
+ case PISA_DO_NONE:
+ val = red * 2 + grn * 6 + blu * 2;
+ if ( val == 0 )
+ ret = 0;
+ else
+ ret = ( unsigned char ) ( val / 10 );
+ break;
+
+ case PISA_DO_RED:
+ ret = red;
+ break;
+
+ case PISA_DO_GREEN:
+ ret = grn;
+ break;
+
+ case PISA_DO_BLUE:
+ ret = blu;
+ break;
+ }
+
+ return ret;
+}
generated by cgit v1.2.3 (git 2.39.1) at 2024-05-12 13:10:11 +0000