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
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
|
/*******************************************************************************
* *
* Viewmol *
* *
* P O S T S C R I P T . C *
* *
* Copyright (c) Joerg-R. Hill, December 2000 *
* *
********************************************************************************
*
* $Id: postscript.c,v 1.5 2000/12/10 15:13:44 jrh Exp $
* $Log: postscript.c,v $
* Revision 1.5 2000/12/10 15:13:44 jrh
* Release 2.3
*
* Revision 1.4 1999/05/24 01:26:56 jrh
* Release 2.2.1
*
* Revision 1.3 1999/02/07 21:54:40 jrh
* Release 2.2
*
* Revision 1.2 1998/01/26 00:49:03 jrh
* Release 2.1
*
* Revision 1.1 1996/12/10 18:43:12 jrh
* Initial revision
*
*/
#include<pwd.h>
#include<stdio.h>
#include<time.h>
#include<unistd.h>
#include<sys/types.h>
#include<X11/Xlib.h>
#include<GL/gl.h>
#include "viewmol.h"
#include "dialog.h"
#define TOPSUNIT 72./25.4
#define EPS_GOURAUD_THRESHOLD 0.1 /* smaller values result in smoother shading */
extern struct WINDOW windows[];
extern struct MOLECULE *molecules;
extern int rgbMode;
/* extern char title[MAXLENLINE]; */
extern char *textPointer;
extern Widget topShell;
extern void getRGBColor(Widget, Pixel, float *, float *, float *);
extern char *getStringResource(Widget, char *);
static GLfloat pointSize;
static GLfloat lastred=(-1.), lastgreen=(-1.), lastblue=(-1.);
static int cyrillic=FALSE;
FILE *PostscriptInit(char *, double, double, double, int, int);
void PostscriptClose(FILE *);
void PostscriptSetRGBColor(FILE *, GLfloat, GLfloat, GLfloat);
void PostscriptMoveto(FILE *, int, GLfloat, GLfloat);
void PostscriptLineto(FILE *, int, GLfloat, GLfloat);
void PostscriptTriangle(FILE *, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat, GLfloat);
void PostscriptTriangleColor(FILE *, GLfloat, GLfloat, GLfloat);
void PostscriptPoint(FILE *, int, GLfloat, GLfloat);
void PostscriptLineStipple(FILE *, GLushort);
void PostscriptShowString(FILE *, int, GLfloat, GLfloat);
FILE *PostscriptInit(char *filename, double paperWidth, double paperHeight,
double fontHeight, int window, int smooth)
{
FILE *file;
time_t now;
struct passwd *entry;
GLfloat clearColor[4], viewport[4], clearIndex, xtrans, ytrans, lineWidth;
double ratio, scale;
int portrait;
char *word;
if ((file=fopen(filename, "w")) == NULL) return(NULL);
portrait=paperWidth < paperHeight ? TRUE : FALSE;
glGetFloatv(GL_VIEWPORT, viewport);
ratio=(viewport[2]-viewport[0])/(viewport[3]-viewport[1]);
if (paperHeight*ratio > paperWidth)
scale=(paperWidth-20.)*TOPSUNIT/(viewport[2]-viewport[0]);
else
scale=(paperHeight-20.)*TOPSUNIT/(viewport[3]-viewport[1]);
if (portrait)
{
xtrans=(paperWidth*TOPSUNIT-scale*(viewport[2]+viewport[0]))*0.5;
ytrans=(paperHeight*TOPSUNIT-scale*(viewport[3]+viewport[1]))*0.5;
}
else
{
xtrans=(paperHeight*TOPSUNIT/scale+viewport[3]-viewport[1])*0.5;
ytrans=(paperWidth*TOPSUNIT-scale*(viewport[2]+viewport[0]))*0.5;
}
if (rgbMode)
glGetFloatv(GL_COLOR_CLEAR_VALUE, clearColor);
else
{
glGetFloatv(GL_INDEX_CLEAR_VALUE, &clearIndex);
getRGBColor(windows[VIEWER].widget, (Pixel)clearIndex, &clearColor[0], &clearColor[1], &clearColor[2]);
}
fprintf(file, "%%!PS-Adobe-3.0 EPSF-3.0\n");
if (portrait)
fprintf(file, "%%%%BoundingBox: %d %d %d %d\n", (int)(scale*(viewport[0]+xtrans)+0.5),
(int)(scale*(viewport[1]+ytrans)+0.5), (int)(scale*(viewport[2]-viewport[0]+xtrans)+0.5),
(int)(scale*(viewport[3]-viewport[1]+ytrans)+0.5));
else
fprintf(file, "%%%%BoundingBox: %d %d %d %d\n", (int)(paperHeight*TOPSUNIT-xtrans*scale+0.5),
(int)(scale*ytrans+0.5), (int)(scale*xtrans+0.5),
(int)(scale*(viewport[2]-viewport[0]+ytrans)+0.5));
fprintf(file, "%%%%Creator: %s %s\n", PROGRAM, VERSION);
now=time((time_t *)NULL);
fprintf(file, "%%%%CreationDate: %s", ctime(&now));
entry=getpwuid(getuid());
fprintf(file, "%%%%For: %s\n", entry->pw_gecos);
if (portrait)
fprintf(file, "%%%%Orientation: Portrait\n");
else
fprintf(file, "%%%%Orientation: Landscape\n");
fprintf(file, "%%%%Pages: 1\n");
fprintf(file, "%%%%Title: %s\n", molecules[windows[window].set].title);
fprintf(file, "%%%%EndComments\n");
fprintf(file, "%%%%Page: 0 1\n");
word=getStringResource(topShell, "fontList");
if (word && strstr(word, "koi8")) cyrillic=TRUE;
if (cyrillic)
{
fprintf(file, "/Cyrillic findfont dup length dict begin\n");
fprintf(file, "{1 index /FID ne {def} {pop pop} ifelse} forall\n");
fprintf(file, "/Encoding[/NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL\n");
fprintf(file, "/NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL\n");
fprintf(file, "/NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL /space\n");
fprintf(file, "/exclam /quotedbl /numbersign /NUL /percent /NUL /quoteright\n");
fprintf(file, "/parenleft /parenright /asterisk /plus /comma /endash /period\n");
fprintf(file, "/slash /zero /one /two /three /four /five /six /seven /eight\n");
fprintf(file, "/nine /colon /semicolon /less /equal /greater /question /NUL\n");
fprintf(file, "/NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL\n");
fprintf(file, "/NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL\n");
fprintf(file, "/NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL\n");
fprintf(file, "/NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL\n");
fprintf(file, "/NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL\n");
fprintf(file, "/NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL\n");
fprintf(file, "/NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL\n");
fprintf(file, "/NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL\n");
fprintf(file, "/Oslash /NUL /NUL /NUL /NUL /NUL /NUL /NUL /oslash /NUL /NUL\n");
fprintf(file, "/NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL\n");
fprintf(file, "/NUL /NUL /NUL /NUL /NUL /NUL /NUL /NUL /bracketright /a /b\n");
fprintf(file, "/c /d /e /f /g /h /i /y /k /l /m /n /o /p /aring /r /s /t /u\n");
fprintf(file, "/j /v /exclamdown /bracketleft /z /w /hyphen /x /q /trademark\n");
fprintf(file, "/braceright /A /B /C /D /E /F /G /H /I /Y /K /L /M /N /O /P\n");
fprintf(file, "/Aring /R /S /T /U /J /V /fraction /braceleft /Z /W /Z /X /Q\n");
fprintf(file, "/currency] def currentdict end\n");
fprintf(file, "/Cyrillic-koi8 exch definefont pop\n");
fprintf(file, "/Cyrillic-koi8 findfont %f scalefont setfont\n", fontHeight);
}
else
{
fprintf(file, "/Times-Roman findfont dup length dict begin\n");
fprintf(file, "{1 index /FID ne {def} {pop pop} ifelse} forall\n");
fprintf(file, "/Encoding ISOLatin1Encoding def currentdict end\n");
fprintf(file, "/Times-Roman-ISOLatin1 exch definefont pop\n");
fprintf(file, "/Times-Roman-ISOLatin1 findfont %f scalefont setfont\n", fontHeight);
}
if (smooth)
{
fprintf(file, "/threshold %f def\n", EPS_GOURAUD_THRESHOLD);
fprintf(file, "/bd{bind def}bind def /triangle { aload pop setrgbcolor aload pop 5 3\n");
fprintf(file, "roll 4 2 roll 3 2 roll exch moveto lineto lineto closepath fill } bd\n");
fprintf(file, "/computediff1 { 2 copy sub abs threshold ge {pop pop pop true} { exch 2\n");
fprintf(file, "index sub abs threshold ge { pop pop true} { sub abs threshold ge } ifelse\n");
fprintf(file, "} ifelse } bd /computediff3 { 3 copy 0 get 3 1 roll 0 get 3 1 roll 0 get\n");
fprintf(file, "computediff1 {true} { 3 copy 1 get 3 1 roll 1 get 3 1 roll 1 get\n");
fprintf(file, "computediff1 {true} { 3 copy 2 get 3 1 roll 2 get 3 1 roll 2 get\n");
fprintf(file, "computediff1 } ifelse } ifelse } bd /middlecolor { aload pop 4 -1 roll\n");
fprintf(file, "aload pop 4 -1 roll add 2 div 5 1 roll 3 -1 roll add 2 div 3 1 roll add 2\n");
fprintf(file, "div 3 1 roll exch 3 array astore } bd /G { computediff3 { 4\n");
fprintf(file, "-1 roll aload 7 1 roll 6 -1 roll pop 3 -1 roll pop add 2 div 3 1 roll add\n");
fprintf(file, "2 div exch 3 -1 roll aload 7 1 roll exch pop 4 -1 roll pop add 2 div 3 1\n");
fprintf(file, "roll add 2 div exch 3 -1 roll aload 7 1 roll pop 3 -1 roll pop add 2 div 3\n");
fprintf(file, "1 roll add 2 div exch 7 3 roll 10 -3 roll dup 3 index middlecolor 4 1 roll\n");
fprintf(file, "2 copy middlecolor 4 1 roll 3 copy pop middlecolor 4 1 roll 13 -1 roll\n");
fprintf(file, "aload pop 17 index 6 index 15 index 19 index 6 index 17 index 6 array\n");
fprintf(file, "astore 10 index 10 index 14 index G 17 index 5 index 17\n");
fprintf(file, "index 19 index 5 index 19 index 6 array astore 10 index 9 index 13 index\n");
fprintf(file, "G 13 index 16 index 5 index 15 index 18 index 5 index 6\n");
fprintf(file, "array astore 12 index 12 index 9 index G 17 index 16 index\n");
fprintf(file, "15 index 19 index 18 index 17 index 6 array astore 10 index 12 index 14\n");
fprintf(file, "index G 18 {pop} repeat } { aload pop 5 3 roll aload pop 7 3\n");
fprintf(file, "roll aload pop 9 3 roll 4 index 6 index 4 index add add 3 div 10 1 roll 7\n");
fprintf(file, "index 5 index 3 index add add 3 div 10 1 roll 6 index 4 index 2 index add\n");
fprintf(file, "add 3 div 10 1 roll 9 {pop} repeat 3 array astore triangle } ifelse } bd\n");
}
fprintf(file, "/l {lineto} bind def /m {moveto} bind def /c {setrgbcolor} bind def\n");
fprintf(file, "/sl {3 2 roll 3 2 roll moveto show} bind def\n");
fprintf(file, "/sr {dup stringwidth pop -1 mul 4 3 roll add 3 2 roll moveto show} bind def\n");
fprintf(file, "%.2f %.2f scale\n", scale, scale);
if (portrait)
fprintf(file, "%.2f %.2f translate\n", xtrans, ytrans);
else
fprintf(file, "90 rotate %.2f %.2f translate\n", ytrans, -xtrans);
glGetFloatv(GL_LINE_WIDTH, &lineWidth);
fprintf(file, "%.2f setlinewidth\n", lineWidth);
fprintf(file, "%f %f %f setrgbcolor\n", clearColor[0], clearColor[1], clearColor[2]);
fprintf(file, "%.2f %.2f %.2f %.2f rectfill\n", viewport[0], viewport[1], viewport[2], viewport[3]);
glGetFloatv(GL_POINT_SIZE, &pointSize);
lastred=lastgreen=lastblue=(-1.);
return(file);
}
void PostscriptClose(FILE *file)
{
fprintf(file, "showpage\n%%%%EOF\n");
fclose(file);
}
void PostscriptSetRGBColor(FILE *file, GLfloat red, GLfloat green, GLfloat blue)
{
if (red == lastred && green == lastgreen && blue == lastblue) return;
lastred=red;
lastgreen=green;
lastblue=blue;
fprintf(file, "%f %f %f c\n", red, green, blue);
}
void PostscriptMoveto(FILE *file, int portrait, GLfloat x, GLfloat y)
{
fprintf(file, "%.2f %.2f m\n", x, y);
}
void PostscriptLineto(FILE *file, int portrait, GLfloat x, GLfloat y)
{
fprintf(file, "%.2f %.2f l\n", x, y);
}
void PostscriptTriangle(FILE *file, GLfloat x1, GLfloat x2, GLfloat x3,
GLfloat y1, GLfloat y2, GLfloat y3)
{
fprintf(file, "[%.2f %.2f %.2f %.2f %.2f %.2f] ", x1, x2, x3, y1, y2, y3);
}
void PostscriptTriangleColor(FILE *file, GLfloat red, GLfloat green,
GLfloat blue)
{
static int count=0;
fprintf(file, "[%f %f %f] ", red, green, blue);
count++;
if (count == 1)
fprintf(file, "\n");
if (count == 3)
{
fprintf(file, "G\n");
count=0;
}
}
void PostscriptPoint(FILE *file, int portrait, GLfloat x, GLfloat y)
{
fprintf(file, "%.2f %.2f %.2f 0 360 arc fill\n", x, y, pointSize*0.5);
}
void PostscriptLineStipple(FILE *file, GLushort style)
{
int count;
register int i, j, k;
if (style == 0xffff)
fprintf(file, "[] 0 setdash\n");
else
{
fprintf(file, "[");
j=style & 1;
count=1;
for (i=1; i<sizeof(GLushort)*8; i++)
{
k=(style & (1 << i)) >> i;
if (k != j)
{
fprintf(file, "%d ", count);
j=k;
count=1;
}
else
count++;
}
fprintf(file, "] 0 setdash\n");
}
}
void PostscriptShowString(FILE *file, int dummy, GLfloat x, GLfloat y)
{
register unsigned char *p;
fprintf(file, "%.2f %.2f (", x, y);
for (p=(unsigned char *)textPointer+1; *p; p++)
{
switch (*p)
{
case '(': fprintf(file, "\\(");
break;
case ')': fprintf(file, "\\)");
break;
default: fprintf(file, "%c", *p);
break;
}
}
fprintf(file, ") s%c\n", textPointer[0]);
textPointer+=strlen(textPointer)+1;
}
|
