src/px/ra_ps.c

/* Copyright (c) 1992 Regents of the University of California */

#ifndef lint
static char SCCSid[] = "$SunId$ LBL";
#endif

/*
 *  Radiance picture to PostScript file translator -- one way!
 */

#include  <stdio.h>
#ifdef MSDOS
#include  <fcntl.h>
#endif
#include  "color.h"
#include  "random.h"

#define HMARGIN         (.5*72)                 /* horizontal margin */
#define VMARGIN         (.5*72)                 /* vertical margin */
#define PWIDTH          (8.5*72-2*HMARGIN)      /* width of device */
#define PHEIGHT         (11*72-2*VMARGIN)       /* height of device */

char  code[] =                  /* 6-bit code lookup table */
        "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ@+";

int  wrongformat = 0;                   /* input in wrong format? */
double  pixaspect = 1.0;                /* pixel aspect ratio */

int  bradj = 0;                         /* brightness adjustment */
int  ncopies = 1;                       /* number of copies */

char  *progname;

int  xmax, ymax;

extern char  *malloc();


headline(s)             /* check header line */
char  *s;
{
        char  fmt[32];

        if (isformat(s)) {
                formatval(fmt, s);
                wrongformat = strcmp(fmt, COLRFMT);
        } else if (isaspect(s))
                pixaspect *= aspectval(s);
}


main(argc, argv)
int  argc;
char  *argv[];
{
        int  i;
        
        progname = argv[0];

        for (i = 1; i < argc; i++)
                if (argv[i][0] == '-')
                        switch (argv[i][1]) {
                        case 'e':               /* exposure adjustment */
                                if (argv[i+1][0] != '+' && argv[i+1][0] != '-')
                                        goto userr;
                                bradj = atoi(argv[++i]);
                                break;
                        case 'n':               /* number of copies */
                                ncopies = atoi(argv[++i]);
                                break;
                        default:
                                goto userr;
                        }
                else
                        break;

        if (i < argc-2)
                goto userr;
        if (i <= argc-1 && freopen(argv[i], "r", stdin) == NULL) {
                fprintf(stderr, "%s: can't open input \"%s\"\n",
                                progname, argv[i]);
                exit(1);
        }
        if (i == argc-2 && freopen(argv[i+1], "w", stdout) == NULL) {
                fprintf(stderr, "%s: can't open output \"%s\"\n",
                                progname, argv[i+1]);
                exit(1);
        }
#ifdef MSDOS
        setmode(fileno(stdin), O_BINARY);
#endif
                                /* get our header */
        getheader(stdin, headline, NULL);
        if (wrongformat || fgetresolu(&xmax, &ymax, stdin) < 0)
                quiterr("bad picture format");
                                /* write header */
        PSheader(i <= argc-1 ? argv[i] : "<stdin>");
                                /* convert file */
        ra2ps();
                                /* write trailer */
        PStrailer();
        exit(0);
userr:
        fprintf(stderr, "Usage: %s [-e +/-stops] [input [output]]\n", progname);
        exit(1);
}


quiterr(err)            /* print message and exit */
char  *err;
{
        if (err != NULL) {
                fprintf(stderr, "%s: %s\n", progname, err);
                exit(1);
        }
        exit(0);
}


PSheader(name)                  /* print PostScript header */
char  *name;
{
        int  landscape = 0;
        double  pwidth, pheight;
        double  iwidth, iheight;

        printf("%%!\n");
        printf("%%%%Title: %s\n", name);
        printf("%%%%Creator: %s\n", progname);
        printf("%%%%Pages: %d\n", ncopies);
        if (landscape = xmax > pixaspect*ymax)
                printf("%%%%Landscape\n");
        else
                printf("%%%%Portrait\n");
        printf("%%%%EndComments\n");
        printf("64 dict begin\n");
                                        /* define image reader */
        PSprocdef("read6bit");
                                        /* set up transformation matrix */
        printf("%f %f translate\n", HMARGIN, VMARGIN);
        if (PWIDTH > PHEIGHT ^ landscape) {
                printf("0 %f translate\n", PHEIGHT);
                printf("-90 rotate\n");
                pwidth = PHEIGHT;
                pheight = PWIDTH;
        } else {
                pwidth = PWIDTH;
                pheight = PHEIGHT;
        }
        if (pheight/pwidth > pixaspect*ymax/xmax) {
                iwidth = pwidth;
                iheight = pwidth*pixaspect*ymax/xmax;
        } else {
                iheight = pheight;
                iwidth = pheight*xmax/(pixaspect*ymax);
        }
        printf("%f %f translate\n", (pwidth-iwidth)*.5, (pheight-iheight)*.5);
        printf("%f %f scale\n", iwidth, iheight);
        printf("%%%%EndProlog\n");
                                        /* start image procedure */
        printf("%d %d 8 [%d 0 0 %d 0 %d] {read6bit} image", xmax, ymax,
                        xmax, -ymax, ymax);
}


PStrailer()                     /* print PostScript trailer */
{
        puts("%%Trailer");
        if (ncopies > 1)
                printf("/#copies %d def\n", ncopies);
        puts("showpage");
        puts("end");
        puts("%%EOF");
}


PSprocdef(nam)                  /* define PS procedure to read image */
char  *nam;
{
        short  itab[128];
        register int  i;
                                /* assign code values */
        for (i = 0; i < 128; i++)       /* clear */
                itab[i] = -1;
        for (i = 1; i < 63; i++)        /* assign greys */
                itab[code[i]] = i<<2 | 2;
        itab[code[0]] = 0;              /* black is black */
        itab[code[63]] = 255;           /* and white is white */
        printf("/decode [");
        for (i = 0; i < 128; i++) {
                if (!(i & 0xf))
                        putchar('\n');
                printf(" %3d", itab[i]);
        }
        printf("\n] def\n");
        printf("/scanline %d string def\n", xmax);
        printf("/%s {\n", nam);
        printf("\t{ 0 1 %d { scanline exch\n", xmax-1);
        printf("\t\t{ decode currentfile read not {stop} if get\n");
        printf("\tdup 0 lt {pop} {exit} ifelse } loop put } for\n");
        printf("} stopped {pop pop pop 0 string} {scanline} ifelse } def\n");
}


ra2ps()                         /* convert Radiance scanlines to 6-bit */
{
        COLR    *scanin;
        register int    col = 0;
        register int    c;
        register int    x;
        int     y;
                                                /* allocate scanline */
        scanin = (COLR *)malloc(xmax*sizeof(COLR));
        if (scanin == NULL)
                quiterr("out of memory in ra2ps");
                                                /* convert image */
        for (y = ymax-1; y >= 0; y--) {
                if (freadcolrs(scanin, xmax, stdin) < 0)
                        quiterr("error reading Radiance picture");
                normcolrs(scanin, xmax, bradj); /* normalize */
                for (x = 0; x < xmax; x++) {
                        if (!(col++ & 0x3f))
                                putchar('\n');
                        c = normbright(scanin[x]) + (random()&3);
                        if (c > 255) c = 255;
                        putchar(code[c>>2]);
                }
                if (ferror(stdout))
                        quiterr("error writing PostScript file");
        }
        putchar('\n');
                                                /* free scanline */
        free((char *)scanin);
}
Revision:	2.7
Committed:	Thu Nov 18 09:55:17 1993 UTC (30 years, 5 months ago) by greg
Content type:	text/plain
Branch:	MAIN
Changes since 2.6:	+1 -1 lines
Log Message:	minor compiler warning fixes
#	User	Rev	Content
1	greg	2.1	/* Copyright (c) 1992 Regents of the University of California */
2
3			#ifndef lint
4			static char SCCSid[] = "$SunId$ LBL";
5			#endif
6
7			/*
8			* Radiance picture to PostScript file translator -- one way!
9			*/
10
11			#include <stdio.h>
12	greg	2.6	#ifdef MSDOS
13			#include <fcntl.h>
14			#endif
15	greg	2.1	#include "color.h"
16			#include "random.h"
17
18			#define HMARGIN (.572) / horizontal margin */
19			#define VMARGIN (.572) / vertical margin */
20			#define PWIDTH (8.572-2HMARGIN) /* width of device */
21			#define PHEIGHT (1172-2VMARGIN) /* height of device */
22
23			char code[] = /* 6-bit code lookup table */
24			"0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ@+";
25
26			int wrongformat = 0; /* input in wrong format? */
27	greg	2.6	double pixaspect = 1.0; /* pixel aspect ratio */
28	greg	2.1
29			int bradj = 0; /* brightness adjustment */
30	greg	2.4	int ncopies = 1; /* number of copies */
31	greg	2.1
32			char *progname;
33
34			int xmax, ymax;
35
36	greg	2.6	extern char *malloc();
37	greg	2.1
38	greg	2.6
39	greg	2.1	headline(s) /* check header line */
40			char *s;
41			{
42			char fmt[32];
43
44			if (isformat(s)) {
45			formatval(fmt, s);
46			wrongformat = strcmp(fmt, COLRFMT);
47			} else if (isaspect(s))
48			pixaspect *= aspectval(s);
49			}
50
51
52			main(argc, argv)
53			int argc;
54			char *argv[];
55			{
56			int i;
57
58			progname = argv[0];
59
60			for (i = 1; i < argc; i++)
61			if (argv[i][0] == '-')
62			switch (argv[i][1]) {
63			case 'e': /* exposure adjustment */
64			if (argv[i+1][0] != '+' && argv[i+1][0] != '-')
65			goto userr;
66			bradj = atoi(argv[++i]);
67			break;
68	greg	2.4	case 'n': /* number of copies */
69			ncopies = atoi(argv[++i]);
70			break;
71	greg	2.1	default:
72			goto userr;
73			}
74			else
75			break;
76
77			if (i < argc-2)
78			goto userr;
79			if (i <= argc-1 && freopen(argv[i], "r", stdin) == NULL) {
80			fprintf(stderr, "%s: can't open input \"%s\"\n",
81			progname, argv[i]);
82			exit(1);
83			}
84			if (i == argc-2 && freopen(argv[i+1], "w", stdout) == NULL) {
85	greg	2.7	fprintf(stderr, "%s: can't open output \"%s\"\n",
86	greg	2.1	progname, argv[i+1]);
87			exit(1);
88			}
89	greg	2.6	#ifdef MSDOS
90			setmode(fileno(stdin), O_BINARY);
91			#endif
92	greg	2.1	/* get our header */
93			getheader(stdin, headline, NULL);
94			if (wrongformat \|\| fgetresolu(&xmax, &ymax, stdin) < 0)
95			quiterr("bad picture format");
96			/* write header */
97			PSheader(i <= argc-1 ? argv[i] : "<stdin>");
98			/* convert file */
99			ra2ps();
100			/* write trailer */
101			PStrailer();
102			exit(0);
103			userr:
104			fprintf(stderr, "Usage: %s [-e +/-stops] [input [output]]\n", progname);
105			exit(1);
106			}
107
108
109			quiterr(err) /* print message and exit */
110			char *err;
111			{
112			if (err != NULL) {
113			fprintf(stderr, "%s: %s\n", progname, err);
114			exit(1);
115			}
116			exit(0);
117			}
118
119
120			PSheader(name) /* print PostScript header */
121			char *name;
122			{
123			int landscape = 0;
124	greg	2.6	double pwidth, pheight;
125			double iwidth, iheight;
126	greg	2.1
127			printf("%%!\n");
128			printf("%%%%Title: %s\n", name);
129			printf("%%%%Creator: %s\n", progname);
130	greg	2.4	printf("%%%%Pages: %d\n", ncopies);
131	greg	2.1	if (landscape = xmax > pixaspect*ymax)
132			printf("%%%%Landscape\n");
133			else
134			printf("%%%%Portrait\n");
135			printf("%%%%EndComments\n");
136			printf("64 dict begin\n");
137	greg	2.3	/* define image reader */
138			PSprocdef("read6bit");
139	greg	2.1	/* set up transformation matrix */
140	greg	2.2	printf("%f %f translate\n", HMARGIN, VMARGIN);
141	greg	2.1	if (PWIDTH > PHEIGHT ^ landscape) {
142			printf("0 %f translate\n", PHEIGHT);
143	greg	2.2	printf("-90 rotate\n");
144	greg	2.1	pwidth = PHEIGHT;
145			pheight = PWIDTH;
146			} else {
147			pwidth = PWIDTH;
148			pheight = PHEIGHT;
149			}
150			if (pheight/pwidth > pixaspect*ymax/xmax) {
151	greg	2.2	iwidth = pwidth;
152			iheight = pwidthpixaspectymax/xmax;
153	greg	2.1	} else {
154	greg	2.2	iheight = pheight;
155			iwidth = pheightxmax/(pixaspectymax);
156	greg	2.1	}
157	greg	2.2	printf("%f %f translate\n", (pwidth-iwidth).5, (pheight-iheight).5);
158			printf("%f %f scale\n", iwidth, iheight);
159	greg	2.1	printf("%%%%EndProlog\n");
160	greg	2.3	/* start image procedure */
161	greg	2.2	printf("%d %d 8 [%d 0 0 %d 0 %d] {read6bit} image", xmax, ymax,
162			xmax, -ymax, ymax);
163	greg	2.1	}
164
165
166			PStrailer() /* print PostScript trailer */
167			{
168			puts("%%Trailer");
169	greg	2.4	if (ncopies > 1)
170			printf("/#copies %d def\n", ncopies);
171			puts("showpage");
172	greg	2.1	puts("end");
173			puts("%%EOF");
174			}
175
176
177			PSprocdef(nam) /* define PS procedure to read image */
178			char *nam;
179			{
180			short itab[128];
181			register int i;
182	greg	2.5	/* assign code values */
183			for (i = 0; i < 128; i++) /* clear */
184	greg	2.1	itab[i] = -1;
185	greg	2.5	for (i = 1; i < 63; i++) /* assign greys */
186	greg	2.1	itab[code[i]] = i<<2 \| 2;
187	greg	2.5	itab[code[0]] = 0; /* black is black */
188			itab[code[63]] = 255; /* and white is white */
189	greg	2.1	printf("/decode [");
190			for (i = 0; i < 128; i++) {
191			if (!(i & 0xf))
192			putchar('\n');
193			printf(" %3d", itab[i]);
194			}
195			printf("\n] def\n");
196			printf("/scanline %d string def\n", xmax);
197			printf("/%s {\n", nam);
198			printf("\t{ 0 1 %d { scanline exch\n", xmax-1);
199			printf("\t\t{ decode currentfile read not {stop} if get\n");
200			printf("\tdup 0 lt {pop} {exit} ifelse } loop put } for\n");
201			printf("} stopped {pop pop pop 0 string} {scanline} ifelse } def\n");
202			}
203
204
205			ra2ps() /* convert Radiance scanlines to 6-bit */
206			{
207			COLR *scanin;
208			register int col = 0;
209			register int c;
210			register int x;
211			int y;
212			/* allocate scanline */
213			scanin = (COLR )malloc(xmaxsizeof(COLR));
214			if (scanin == NULL)
215			quiterr("out of memory in ra2ps");
216			/* convert image */
217			for (y = ymax-1; y >= 0; y--) {
218			if (freadcolrs(scanin, xmax, stdin) < 0)
219			quiterr("error reading Radiance picture");
220	greg	2.6	normcolrs(scanin, xmax, bradj); /* normalize */
221	greg	2.1	for (x = 0; x < xmax; x++) {
222			if (!(col++ & 0x3f))
223			putchar('\n');
224			c = normbright(scanin[x]) + (random()&3);
225			if (c > 255) c = 255;
226			putchar(code[c>>2]);
227			}
228			if (ferror(stdout))
229			quiterr("error writing PostScript file");
230			}
231			putchar('\n');
232			/* free scanline */
233			free((char *)scanin);
234			}