/*
From tim@deakin.edu.au Fri May 7 00:18:57 1993
From: Tim Cook <tim@deakin.edu.au>
Date: Fri, 7 May 1993 15:18:34 -0500
X-Mailer: Mail User's Shell (7.2.4 2/2/92)
To: dyson@sunfish.Physics.UIowa.Edu
Subject: Re: DEC LN03+ printer (not postscript) under SunOS (on SS10) ?
Content-Length: 5893
In a message dated 6 May, 9:32, dyson@sunfish.Physics.UIowa.Edu
(Richard L. Dyson) wrote:
> > Just in case anyone is interested, I have a pbmtoln03 utility I wrote
> > when I was mucking about with an LN03+. If you are interested in
> > printing your bitmaps at 300x300dpi, ask me for the source.
>
> I would be interested. We still only have LN03+ printers on our VMS
> machines here...
Ok, here goes. Note that you will need the source from the pbmplus
utilities, because my pbmtoln03 utility uses the library routines that
are a part of pbmplus to read a PBM file (I linked it with libpbm.a).
I have not tested this utility on VMS, but it looks like it should
work.
*/
/* pbmtoln03.c - Converts a PBM bitmap to DEC LN03 SIXEL bitmap
*
* SYNOPSIS
* pbmtoln03 [pbm-file]
*
* OPTIONS
* -l nn Use "nn" as value for left margin (default 0).
* -r nn Use "nn" as value for right margin (default 2400).
* -t nn Use "nn" as value for top margin (default 0).
* -b nn Use "nn" as value for bottom margin (default 3400).
* -f nn Use "nn" as value for form length (default 3400).
*
* Tim Cook, 26 Feb 1992
* changed option parsing to PBM standards - Ingo Wilken, 13 Oct 1993
*/
#include <stdio.h>
#include "pbm.h"
FILE *input ;
#ifndef print
#define print(s) fputs (s, stdout)
#define fprint(f, s) fputs (s, f)
#endif
static void
output_sixel_record (unsigned char * record, int width) {
int i, j, k ;
unsigned char last_char ;
int start_repeat = 0 ;
int repeated ;
char repeated_str[16] ;
char *p ;
/* Do RLE */
last_char = record[0] ;
j = 0 ;
/* This will make the following loop complete */
record[width] = '\0' ;
for (i = 1 ; i <= width ; i++) {
repeated = i - start_repeat ;
if (record[i] != last_char || repeated >= 32766) {
/* Repeat has ended */
if (repeated > 3) {
/* Do an encoding */
record[j++] = '!' ;
sprintf (repeated_str, "%d", i - start_repeat) ;
for (p = repeated_str ; *p ; p++) {
record[j++] = *p ;
}
record[j++] = last_char ;
} else {
for (k = 0 ; k < repeated ; k++)
record[j++] = last_char ;
}
start_repeat = i ;
last_char = record[i] ;
}
}
fwrite ((char *) record, j, 1, stdout) ;
putchar ('-') ; /* DECGNL (graphics new-line) */
putchar ('\n') ;
}
static void
convert (int width, int height, int format) {
int i ;
unsigned char *sixel ; /* A row of sixels */
int sixel_row ;
bit *row = pbm_allocrow (width) ;
sixel = (unsigned char *) malloc (width + 2) ;
sixel_row = 0 ;
while (height--) {
pbm_readpbmrow (input, row, width, format) ;
switch (sixel_row) {
case 0 :
for (i = 0 ; i < width ; i++)
sixel[i] = row[i] ;
break ;
case 1 :
for (i = 0 ; i < width ; i++)
sixel[i] += row[i] << 1 ;
break ;
case 2 :
for (i = 0 ; i < width ; i++)
sixel[i] += row[i] << 2 ;
break ;
case 3 :
for (i = 0 ; i < width ; i++)
sixel[i] += row[i] << 3 ;
break ;
case 4 :
for (i = 0 ; i < width ; i++)
sixel[i] += row[i] << 4 ;
break ;
case 5 :
for (i = 0 ; i < width ; i++)
sixel[i] += (row[i] << 5) + 077 ;
output_sixel_record (sixel, width) ;
break ; }
if (sixel_row == 5)
sixel_row = 0 ;
else
sixel_row++ ;
}
if (sixel_row > 0) {
/* Incomplete sixel record needs to be output */
for (i = 0 ; i < width ; i++)
sixel[i] += 077 ;
output_sixel_record (sixel, width) ; }
}
int
main (int argc, char **argv) {
int argc_copy = argc ;
char **argv_copy = argv ;
int argn;
const char * const usage = "[-left <nn>] [-right <nn>] [-top <nn>] "
"[-bottom <nn>] [-formlength <nn>] [pbmfile]";
/* Options */
/* These defaults are for a DEC LN03 with A4 paper (2400x3400 pixels) */
const char *opt_left_margin = "0";
const char *opt_top_margin = opt_left_margin;
const char *opt_right_margin = "2400";
const char *opt_bottom_margin = "3400";
const char *opt_form_length = opt_bottom_margin;
int width, height, format ;
pbm_init (&argc_copy, argv_copy) ;
argn = 1;
while( argn < argc && argv[argn][0] == '-' && argv[argn][1] != '\0' ) {
if( pm_keymatch(argv[argn], "-left", 2) ) {
if( ++argn >= argc )
pm_usage(usage);
opt_left_margin = argv[argn];
}
else
if( pm_keymatch(argv[argn], "-right", 2) ) {
if( ++argn >= argc )
pm_usage(usage);
opt_right_margin = argv[argn];
}
else
if( pm_keymatch(argv[argn], "-top", 2) ) {
if( ++argn >= argc )
pm_usage(usage);
opt_top_margin = argv[argn];
}
else
if( pm_keymatch(argv[argn], "-bottom", 2) ) {
if( ++argn >= argc )
pm_usage(usage);
opt_bottom_margin = argv[argn];
}
else
if( pm_keymatch(argv[argn], "-formlength", 2) ) {
if( ++argn >= argc )
pm_usage(usage);
opt_form_length = argv[argn];
}
else
pm_usage(usage);
++argn;
}
if( argn < argc ) {
input = pm_openr( argv[argn] );
argn++;
}
else
input = stdin;
if( argn != argc )
pm_usage(usage);
pbm_readpbminit (input, &width, &height, &format) ;
/*
* In explanation of the sequence below:
* <ESC>[!p DECSTR soft terminal reset
* <ESC>[11h PUM select unit of measurement
* <ESC>[7 I SSU select pixel as size unit
* <ESC>[?52l DECOPM origin is corner of printable area
* <ESC>[%s;%ss DECSLRM left and right margins
* <ESC>[%s;%sr DECSTBM top and bottom margins
* <ESC>[%st DECSLPP form length
* <ESC>P0;0;1q select sixel graphics mode
* "1;1 DECGRA aspect ratio (1:1)
*/
/* Initialize sixel file */
printf ("\033[!p\033[11h\033[7 I\033[?52l\033[%s;%ss\033"
"[%s;%sr\033[%st\033P0;0;1q\"1;1",
opt_left_margin, opt_right_margin, opt_top_margin, opt_bottom_margin,
opt_form_length);
/* Convert data */
convert (width, height, format) ;
/* Terminate sixel data */
print ("\033\\\n") ;
/* If the program failed, it previously aborted with nonzero completion
code, via various function calls.
*/
return 0;
}