1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
|
/*
* Ygl: Run GL programs with standard X11 routines.
* (C) Fred Hucht 1993-2007
* EMail: fred@thp.Uni-Duisburg.de
*/
static const char vcid[] = "$Id: gl2ppm.c,v 3.9 2007-05-08 13:24:15+02 fred Exp $";
#ifdef YGL_PREFIX
# include <X11/Yglprefix.h>
#endif
#include <stdlib.h>
#include <stdio.h>
#include <signal.h>
#if 0
# include <gl/gl.h>
# include <gl/device.h>
# include <X11/Xlib.h>
#else
# include <X11/Ygl.h>
#endif
#if defined(_AIX) || defined(DEBUG)
# include <errno.h>
#endif
#ifndef TRUE
# define TRUE (0==0)
# define FALSE (!TRUE)
#endif
#define BYTE(x, n) (((x)>>(n)) & 0xFF)
static int broken_pipe;
static void pipe_error(int sig_no) {
broken_pipe = TRUE;
signal(SIGPIPE, pipe_error);
}
static int check_error(const char *fname, void (*oldsp)(int), int err) {
int ret = FALSE; /* No error */
if (broken_pipe) {
fprintf(stderr, "gl2ppm: Broken pipe while writing to '%s'.\n", fname+1);
ret = TRUE;
}
if (err) {
perror("gl2ppm: ");
ret = TRUE;
}
return ret;
}
int gl2ppm(const char *fname) {
/*
* Read the active [Y]gl-window and write a ppm file
* If fname[0] == '|', use popen.
* return value:
* 1 success
* 0 not all bytes written or can't open file
*
* Fred Hucht 1992/95
*/
int cells = 0, size, r, ret = 0;
Int16 *R = NULL, *G = NULL, *B = NULL;
Int32 *buf = NULL, dx, dy, dxdy;
register Int32 ix, iy;
FILE *tn = NULL;
Int32 DisplayMode = getdisplaymode(), CMapMode, DBufMode;
void (*oldsigpipe)(int);
CMapMode = DisplayMode == DMSINGLE || DisplayMode == DMDOUBLE; /* cmap mode? */
DBufMode = DisplayMode == DMDOUBLE || DisplayMode == DMRGBDOUBLE;
getsize(&dx, &dy); /* Get size of GL window */
dxdy = dx*dy;
if (NULL == (buf = (Int32*) calloc(dxdy, sizeof(Int32)))) {
fprintf(stderr, "gl2ppm: can't allocate memory.\n");
exit(1);
}
#ifdef DEBUG
fprintf(stderr, "gl2ppm: reading %d Pixels.\n", dxdy);
#endif
if (DBufMode) readsource(SRC_FRONT);
size = lrectread(0, 0, dx-1, dy-1, buf);
if (DBufMode) readsource(SRC_AUTO);
#ifdef DEBUG
fprintf(stderr, "gl2ppm: read %d of %d Pixels.\n", size, dxdy);
#endif
#if defined(DEBUG) || defined(JOKE)
if (DBufMode) frontbuffer(TRUE);
clear(); sleep(1); lrectwrite (0, 0, dx-1, dy-1, buf); /* Little joke... */
if (DBufMode) frontbuffer(FALSE);
#endif
if (CMapMode) { /* cmap mode */
cells = 1 << getplanes(); /* Number of colormap cells */
R = (Int16*) malloc(sizeof (Int16) * cells);
G = (Int16*) malloc(sizeof (Int16) * cells);
B = (Int16*) malloc(sizeof (Int16) * cells);
if (R == NULL || G == NULL || B == NULL) {
fprintf(stderr, "gl2ppm: Can't allocate memory.\n");
exit(1);
}
getmcolors(0, cells - 1, R, G, B); /* Load colormap. */
}
broken_pipe = FALSE;
oldsigpipe = signal(SIGPIPE, pipe_error);
tn = (fname[0] != '|') ? fopen(fname, "w") : (FILE*) popen((char*)fname+1, "w");
if (tn == NULL) {
perror("gl2ppm: cannot open file");
signal(SIGPIPE, oldsigpipe);
goto End;
} else {
#ifdef _AIX
errno = 0; /* Don't ask me. Bug in some versions of AIX3 */
#endif
}
#ifdef DEBUG
if (fname[0] == '|') {
fprintf(stderr, "gl2ppm: piping through '%s'. errno = %d\n",
fname, errno);
} else {
fprintf(stderr, "gl2ppm: writing ppm-file '%s'. errno = %d\n",
fname, errno);
}
#endif
r = 0 > fprintf(tn,"P6\n%d %d\n255\n", (int)dx, (int)dy); /* Write ppm-Header. */
if (check_error(fname, oldsigpipe, r)) goto End;
if (CMapMode) {
for (iy = dy-1; iy >= 0; iy--) for (ix = 0; ix < dx; ix++) {
Int32 b = buf[iy * dx + ix] & (cells-1);
r = EOF == putc(R[b], tn) /* Write RGB bytes */
|| EOF == putc(G[b], tn)
|| EOF == putc(B[b], tn);
if (check_error(fname, oldsigpipe, r)) goto End;
}
} else {
/* Do brightness correction */
Int32 white = 0xFFFFFF, maxr, maxg, maxb;
if (DBufMode) {
frontbuffer(TRUE);
readsource(SRC_FRONT);
}
lrectwrite(0, 0, 0, 0, &white); /* Set white pixel at (0,0) */
lrectread (0, 0, 0, 0, &white); /* Read real colors */
#ifdef DEBUG
sleep(1);
#endif
lrectwrite(0, 0, 0, 0, &buf[0]); /* Restore pixel at (0,0) */
if (DBufMode) {
frontbuffer(FALSE);
readsource(SRC_AUTO);
}
maxr = BYTE(white, 0);
maxg = BYTE(white, 8);
maxb = BYTE(white,16);
#ifdef DEBUG
fprintf(stderr, "gl2ppm: RGB white = (%d,%d,%d)\n",
maxr, maxg, maxb);
#endif
for (iy = dy-1; iy >= 0; iy--) for (ix = 0; ix < dx; ix++) {
Int32 b = buf[iy * dx + ix]; /* Write RGB bytes */
r = EOF == putc(((0xFF * BYTE(b, 0)) / maxr), tn)
|| EOF == putc(((0xFF * BYTE(b, 8)) / maxg), tn)
|| EOF == putc(((0xFF * BYTE(b,16)) / maxb), tn);
if (check_error(fname, oldsigpipe, r)) goto End;
}
}
ret = size == dxdy;
End: /* clean up */
if (tn) {
if (fname[0] != '|') fclose(tn);
else pclose(tn);
}
if (buf) free(buf);
if(CMapMode) {
if (R) free(R);
if (G) free(G);
if (B) free(B);
}
#ifdef DEBUG
fprintf(stderr, "gl2ppm: ready, ret = %d\n", ret);
#endif
signal(SIGPIPE, oldsigpipe);
return ret;
}
|
