Annotation of OpenXM_contrib/gnuplot/term/emf.trm, Revision 1.1.1.1
1.1 ohara 1: /*
2: * $Id: emf.trm,v 1.1.6.4 2002/01/26 19:05:34 lhecking Exp $
3: */
4:
5: /* GNUPLOT - emf.trm */
6:
7: /*[
8: * Copyright 1998
9: *
10: * Permission to use, copy, and distribute this software and its
11: * documentation for any purpose with or without fee is hereby granted,
12: * provided that the above copyright notice appear in all copies and
13: * that both that copyright notice and this permission notice appear
14: * in supporting documentation.
15: *
16: * Permission to modify the software is granted, but not the right to
17: * distribute the complete modified source code. Modifications are to
18: * be distributed as patches to the released version. Permission to
19: * distribute binaries produced by compiling modified sources is granted,
20: * provided you
21: * 1. distribute the corresponding source modifications from the
22: * released version in the form of a patch file along with the binaries,
23: * 2. add special version identification to distinguish your version
24: * in addition to the base release version number,
25: * 3. provide your name and address as the primary contact for the
26: * support of your modified version, and
27: * 4. retain our contact information in regard to use of the base
28: * software.
29: * Permission to distribute the released version of the source code along
30: * with corresponding source modifications in the form of a patch file is
31: * granted with same provisions 2 through 4 for binary distributions.
32: *
33: * This software is provided "as is" without express or implied warranty
34: * to the extent permitted by applicable law.
35: ]*/
36:
37: /*
38: * This file is included by ../term.c and ../docs/termdoc.c.
39: *
40: * This terminal driver supports:
41: * Enhanced Metafile Format
42: *
43: * TODO
44: *
45: * HISTORY
46: *
47: * 1.0.5 2000/07/20
48: * - Handles were not freed at all, resulting to resource leaks when viewing on Windows 9x (not on NT4/W2000!!!)
49: * 1.0.4 2000/06/28
50: * - Emulated dashed vectors are now looking better
51: * - 15 colors * 8 pointstyles = 120 pointtypes
52: * 1.0.3 2000/03/29
53: * - default font is now Arial 12
54: * - implemented options (color/mono,dashed/solid,font)
55: * - 15 colors * 5 dashtypes = 75 linetypes
56: * 1.0.2 2000/03/22
57: * - Polygon and Polyline structures are not working for Windows 9X, I
58: * really don't know why, replaced with lineto/moveto couples...
59: * - Texts are now displayed in GM_Compatible mode because GM_Advanced is
60: * displaying correctly but it does not print correctly with Word97!
61: * - Text centering now works best according to escapement/orientation
62: * - Now there is 8 colors * 5 dashtypes = 40 linetypes
63: * - Successfully Working on Linux Suse 6.1 (x86)
64: *
65: * 1.0.1 2000/03/16
66: * - Unicode text have be to long aligned in EMF files (exttextoutw)
67: * - Problems with text transparence (SetBkMode was not called)
68: * - Null brush created for *not* filling polygon
69: *
70: * 1.0.0 2000/03/15
71: * - Only tested on x86 Win32
72: *
73: * AUTHOR
74: * Stephane Barbaray <stephane.barbaray@compodata.com>
75: * Some code based on cgm.trm
76: *
77: * send your comments or suggestions to (info-gnuplot@dartmouth.edu).
78: */
79:
80: #include "driver.h"
81:
82: #ifdef TERM_REGISTER
83: register_term(emf)
84: #endif
85:
86: #ifdef TERM_PROTO
87: TERM_PUBLIC void EMF_options __PROTO((void));
88: TERM_PUBLIC void EMF_init __PROTO((void));
89: TERM_PUBLIC void EMF_reset __PROTO((void));
90: TERM_PUBLIC void EMF_text __PROTO((void));
91: TERM_PUBLIC void EMF_graphics __PROTO((void));
92: TERM_PUBLIC void EMF_move __PROTO((unsigned int x, unsigned int y));
93: TERM_PUBLIC void EMF_dashed_vector __PROTO((unsigned int ux, unsigned int uy));
94: TERM_PUBLIC void EMF_solid_vector __PROTO((unsigned int ux, unsigned int uy));
95: TERM_PUBLIC void EMF_linetype __PROTO((int linetype));
96: TERM_PUBLIC void EMF_linecolor __PROTO((int color));
97: TERM_PUBLIC void EMF_dashtype __PROTO((int dashtype));
98: TERM_PUBLIC void EMF_linewidth __PROTO((double width));
99: TERM_PUBLIC void EMF_put_text __PROTO((unsigned int x, unsigned int y, char *str));
100: TERM_PUBLIC int EMF_text_angle __PROTO((int ang));
101: TERM_PUBLIC int EMF_justify_text __PROTO((enum JUSTIFY mode));
102: TERM_PUBLIC void EMF_point __PROTO((unsigned int x, unsigned int y, int number));
103: TERM_PUBLIC void EMF_set_pointsize __PROTO((double size));
104: TERM_PUBLIC int EMF_set_font __PROTO((char *));
105:
106: #ifdef RGB
107: #undef RGB
108: #endif
109: #define RGB(r,g,b) ((long)(((unsigned char)(r)|((short)((unsigned char)(g))<<8))|(((long)(unsigned char)(b))<<16)))
110:
111: #ifndef min
112: #define min(a,b) (a<b?a:b)
113: #endif
114:
115: #ifndef max
116: #define max(a,b) (a>b?a:b)
117: #endif
118:
119: #define EMF_PX2HM 20
120: #define EMF_PT2HM 35.28
121: #define EMF_10THDEG2RAD (3.14159265359/1800)
122: #define EMF_XMAX (1024*EMF_PX2HM)
123: #define EMF_YMAX (768*EMF_PX2HM)
124: #define EMF_HTIC (EMF_XMAX/160)
125: #define EMF_VTIC EMF_HTIC
126: #define EMF_FONTNAME "Arial"
127: #define EMF_FONTSIZE 12
128: #define EMF_HCHAR (EMF_FONTSIZE*EMF_PT2HM)
129: #define EMF_VCHAR (EMF_FONTSIZE*EMF_PT2HM)
130: #define EMF_LINE_TYPES 5 /* number of line types we support */
131: #define EMF_COLORS 15 /* number of colors we support */
132: #define EMF_POINTS 8 /* number of markers we support */
133: #define EMF_MAX_SEGMENTS 104 /* maximum # polyline coordinates */
134:
135: #define EMF_HANDLE_PEN 1
136: #define EMF_HANDLE_FONT 2
137: #define EMF_HANDLE_BRUSH 3
138: #define EMF_HANDLE_MAX 4
139:
140: #define EMF_STOCK_OBJECT_FLAG ((unsigned long)0x1 << 31)
141: #define EMF_STOCK_OBJECT_WHITE_BRUSH (EMF_STOCK_OBJECT_FLAG + 0x00)
142: #define EMF_STOCK_OBJECT_BLACK_PEN (EMF_STOCK_OBJECT_FLAG + 0x07)
143: #define EMF_STOCK_OBJECT_DEFAULT_FONT (EMF_STOCK_OBJECT_FLAG + 0x0A)
144:
145: #define EMF_write_emr(type,size) {EMF_write_long(type);EMF_write_long(size);emf_record_count++;}
146: #define EMF_write_sizel(width,height) {EMF_write_long(width);EMF_write_long(height);}
147: #define EMF_write_points(x,y) {EMF_write_short(x);EMF_write_short(y);}
148: #define EMF_write_pointl(x,y) {EMF_write_long(x);EMF_write_long(y);}
149: #define EMF_write_rectl(left,top,right,bottom) {EMF_write_long(left);EMF_write_long(top);EMF_write_long(right);EMF_write_long(bottom);}
150:
151: #define EMF_EOF() {EMF_write_emr(14,20);EMF_write_long(0);EMF_write_long(0x10);EMF_write_long(20);}
152: #define EMF_SetMapMode(mode) {EMF_write_emr(17,0xc);EMF_write_long(mode);}
153: #define EMF_SetWindowExtEx(width,height) {EMF_write_emr(9,0x10);EMF_write_sizel(width,height);}
154: #define EMF_SetWindowOrgEx(width,height) {EMF_write_emr(10,0x10);EMF_write_sizel(width,height);}
155: #define EMF_SetViewportExtEx(width,height) {EMF_write_emr(11,0x10);EMF_write_sizel(width,height);}
156: #define EMF_SetViewportOrgEx(width,height) {EMF_write_emr(12,0x10);EMF_write_sizel(width,height);}
157: #define EMF_SetTextColor(color) {EMF_write_emr(24,0xc);EMF_write_long(color);}
158: #define EMF_MoveToEx(x,y) {EMF_write_emr(27,0x10);EMF_write_pointl(x,y);}
159: #define EMF_LineTo(x,y) {EMF_write_emr(54,0x10);EMF_write_pointl(x,y);}
160: #define EMF_CreatePen(handle,type,width,color) {EMF_write_emr(38,0x1C);EMF_write_long(handle);EMF_write_long(type);EMF_write_long(width);EMF_write_long(0);EMF_write_long(color);}
161: #define EMF_CreateBrush(handle,type,color,hatch) {EMF_write_emr(39,0x18);EMF_write_long(handle);EMF_write_long(type);EMF_write_long(color);EMF_write_long(hatch);}
162: #define EMF_SelectObject(handle) {EMF_write_emr(37,0x0C);EMF_write_long(handle);}
163: #define EMF_DeleteObject(handle) {EMF_write_emr(40,0x0C);EMF_write_long(handle);}
164: #define EMF_SetTextAlign(align) {EMF_write_emr(22,0x0C);EMF_write_long(align);}
165: #define EMF_SetBkMode(mode) {EMF_write_emr(18,0x0C);EMF_write_long(mode);}
166:
167: #endif /* TERM_PROTO */
168:
169: #ifndef TERM_PROTO_ONLY
170: #ifdef TERM_BODY
171:
172: /*
173: * on NeXTstep, id is an identifier (in ObjC) and causes a parse error
174: * since some asserts below are mistaken as casts. datum is a type
175: * defined in ndbm.h which also causes a parse error (ndbm.h is
176: * included as part of appkit.h, I think). Strangely enough, both
177: * errors only happen with cpp-precomp -smart, not with the regular
178: * cpp. (AL)
179: */
180:
181: #ifdef NEXT
182: #define id id_
183: #define datum datum_
184: #endif
185:
186: #include <ctype.h> /* for isspace() */
187:
188: #ifndef assert
189: #define assert(x) 0 /* defeat assertions */
190: #endif
191:
192: /* uncomment the following to enable assertions for this module only,
193: regardless of compiler switches */
194: #ifdef NDEBUG
195: #define DEFEAT_ASSERTIONS
196: #endif
197: #undef NDEBUG
198: #include <assert.h>
199:
200: static unsigned int emf_posx;
201: static unsigned int emf_posy;
202: static unsigned int emf_record_count = 0;
203: static unsigned int emf_linetype = 1;
204: static unsigned int emf_linewidth; /* line width in plot units */
205: static unsigned int emf_dashtype = 0;
206: static unsigned long emf_color = 0L;
207: static unsigned int emf_polyline[EMF_MAX_SEGMENTS]; /* stored polyline coordinates */
208: static unsigned int emf_graphics = FALSE;
209: static unsigned int emf_dashed = TRUE;
210: static unsigned int emf_monochrome = FALSE;
211: static int emf_coords = 0; /* # polyline coordinates saved */
212: static char emf_fontname[255] = EMF_FONTNAME;
213: static int emf_fontsize = EMF_FONTSIZE;
214: static char emf_defaultfontname[255] = EMF_FONTNAME;
215: static int emf_defaultfontsize = EMF_FONTSIZE;
216: enum JUSTIFY emf_justify = LEFT;
217: static int emf_vert_text = 0; /* text orientation -- nonzero for vertical */
218: static int emf_step_sizes[8]; /* array of currently used dash lengths in plot units */
219: static int emf_step_index = 0; /* index into emf_step_sizes[] */
220: static int emf_step = 0; /* amount of current dash not yet drawn, in plot units */
221: static int emf_tic, emf_tic707, emf_tic866, emf_tic500, emf_tic1241, emf_tic1077, emf_tic621; /* marker dimensions */
222:
223: static void EMF_flush_polyline __PROTO((void));
224: static void EMF_flush_polygon __PROTO((void));
225: static void EMF_write_byte __PROTO((int)); /* HBB 20001102: was 'char'... */
226: static void EMF_write_short __PROTO((int)); /* HBB 20001102: was 'short' */
227: static void EMF_write_long __PROTO((unsigned long));
228: static void EMF_write_float __PROTO((double)); /* HBB 20001102: was 'float' */
229: static void EMF_setfont __PROTO((void));
230:
231: static void
232: EMF_setfont()
233: {
234: int i, count;
235: int bold = 400;
236: char italic = 0, underline = 0, strikeout = 0;
237: char font[32];
238: char *sub;
239:
240: if (!emf_graphics)
241: return;
242:
243: count = min (strlen(emf_fontname), 31);
244: if (((sub = strstr(emf_fontname, " bold")) != NULL)
245: || ((sub = strstr(emf_fontname, " Bold")) != NULL)) {
246: bold = 700;
247: count = min(sub - emf_fontname, count);
248: }
249: if (((sub = strstr(emf_fontname, " italic")) != NULL)
250: || ((sub = strstr(emf_fontname, " Italic")) != NULL)) {
251: italic = 1;
252: count = min(sub - emf_fontname, count);
253: }
254: if (((sub = strstr(emf_fontname, " underline")) != NULL)
255: || ((sub = strstr(emf_fontname, " Underline")) != NULL)) {
256: underline = 1;
257: count = min(sub - emf_fontname, count);
258: }
259: if (((sub = strstr(emf_fontname, " strikeout")) != NULL)
260: || ((sub = strstr(emf_fontname, " Strikeout")) != NULL)
261: || ((sub = strstr(emf_fontname, " StrikeOut")) != NULL)
262: ) {
263: strikeout = 1;
264: count = min(sub - emf_fontname, count);
265: }
266:
267: safe_strncpy(font, emf_fontname, count + 1);
268:
269: EMF_SelectObject(EMF_STOCK_OBJECT_DEFAULT_FONT);
270: EMF_DeleteObject(EMF_HANDLE_FONT);
271:
272: EMF_write_emr(82, 104);
273: EMF_write_long(EMF_HANDLE_FONT);
274: EMF_write_long((long) (emf_fontsize * EMF_PT2HM)); /* height */
275: EMF_write_long(0); /* width */
276: EMF_write_long(emf_vert_text); /* escapement */
277: EMF_write_long(emf_vert_text); /* orientation */
278: EMF_write_long(bold); /* weight */
279: EMF_write_byte(italic); /* italic */
280: EMF_write_byte(underline); /* underline */
281: EMF_write_byte(strikeout); /* strikeout */
282: EMF_write_byte(1); /* charset */
283: EMF_write_byte(0); /* out precision */
284: EMF_write_byte(0); /* clip precision */
285: EMF_write_byte(0); /* quality */
286: EMF_write_byte(0); /* pitch and family */
287: for (i = 0; i < 32; i++) { /* face name (max 32) */
288: EMF_write_byte((char) (i < strlen(font) ? font[i] : 0));
289: EMF_write_byte(0);
290: }
291: EMF_SelectObject(EMF_HANDLE_FONT);
292: }
293:
294: static void
295: EMF_flush_polygon()
296: {
297: if (emf_coords == 0)
298: return;
299: else {
300: int i = 0;
301: /* Polygon works for NT4 but not on W9x */
302: /* EMF_write_emr(3,(7+emf_coords*2)*4);
303: EMF_write_rectl(0,0,0,0);
304: EMF_write_long(emf_coords);
305: while(i < emf_coords*2)
306: EMF_write_pointl(emf_polyline[i++],term->ymax-emf_polyline[i++]);
307: */
308: EMF_MoveToEx(emf_polyline[i++], term->ymax - emf_polyline[i++]);
309: while (i < emf_coords * 2)
310: EMF_LineTo(emf_polyline[i++], term->ymax - emf_polyline[i++]);
311: EMF_LineTo(emf_polyline[0], term->ymax - emf_polyline[1]);
312: }
313: emf_coords = 0;
314: }
315:
316: static void
317: EMF_flush_polyline()
318: {
319: if (emf_coords == 0)
320: return;
321: else if (emf_coords <= 2) {
322: EMF_MoveToEx(emf_polyline[0], term->ymax - emf_polyline[1]);
323: EMF_LineTo(emf_polyline[2], term->ymax - emf_polyline[3]);
324: } else {
325: int i = 0;
326: /* Polyline works for NT4 but not on W9x */
327: /* EMF_write_emr(4,(7+emf_coords*2)*4);
328: EMF_write_rectl(0,0,0,0);
329: EMF_write_long(emf_coords);
330: while(i < emf_coords*2)
331: EMF_write_pointl(emf_polyline[i++],term->ymax-emf_polyline[i++]);
332: */
333: EMF_MoveToEx(emf_polyline[i++], term->ymax - emf_polyline[i++]);
334: while (i < emf_coords * 2)
335: EMF_LineTo(emf_polyline[i++], term->ymax - emf_polyline[i++]);
336: }
337: emf_coords = 0;
338: }
339:
340: /* HBB 20001103: K&R'ized these 4 functions a bit better. */
341: static void
342: EMF_write_byte(value)
343: int value;
344: {
345: char c = value;
346: fwrite(&c, 1, 1, gpoutfile);
347: }
348:
349: static void
350: EMF_write_short(value)
351: int value;
352: {
353: short int actual_value = value;
354: char c[2];
355:
356: c[1] = (actual_value >> 8) & 255; /* convert to x86 order */
357: c[0] = actual_value & 255;
358:
359: fwrite(c, 1, 2, gpoutfile);
360: }
361:
362: static void
363: EMF_write_long(value)
364: unsigned long value;
365: {
366: char c[4];
367:
368: c[3] = (value >> 24) & 0xFFL; /* convert to x86 order */
369: c[2] = (value >> 16) & 0xFFL;
370: c[1] = (value >> 8) & 0xFFL;
371: c[0] = value & 0xFFL;
372:
373: fwrite(c, 1, 4, gpoutfile);
374: }
375:
376: /* FIXME HBB 20001103: this only works as given iff 'float' is the
377: * same format as on x86's, i.e. IEEE 4-byte floating point format */
378: static void
379: EMF_write_float(value)
380: double value;
381: {
382: char c[4];
383:
384: union {
385: long l;
386: float f;
387: } u;
388:
389: u.f = value;
390:
391: c[3] = (u.l >> 24) & 0xFFL; /* convert to x86 order */
392: c[2] = (u.l >> 16) & 0xFFL;
393: c[1] = (u.l >> 8) & 0xFFL;
394: c[0] = u.l & 0xFFL;
395:
396: fwrite(c, 1, 4, gpoutfile);
397: }
398:
399: TERM_PUBLIC void
400: EMF_options()
401: {
402: term->xmax = EMF_XMAX;
403: term->ymax = EMF_YMAX;
404: emf_dashed = TRUE;
405: emf_monochrome = FALSE;
406: while (!END_OF_COMMAND) {
407: if (almost_equals(c_token, "de$fault")) {
408: strcpy(emf_defaultfontname, EMF_FONTNAME);
409: emf_defaultfontsize = EMF_FONTSIZE;
410: emf_monochrome = FALSE;
411: emf_dashed = TRUE;
412: c_token++;
413: continue;
414: }
415: if (almost_equals(c_token, "m$onochrome")) {
416: emf_monochrome = TRUE;
417: c_token++;
418: continue;
419: }
420: if (almost_equals(c_token, "c$olor") || almost_equals(c_token, "c$olour")) {
421: emf_monochrome = FALSE;
422: c_token++;
423: continue;
424: }
425: if (almost_equals(c_token, "da$shed")) {
426: emf_dashed = TRUE;
427: c_token++;
428: continue;
429: }
430: if (almost_equals(c_token, "s$olid")) {
431: emf_dashed = FALSE;
432: c_token++;
433: continue;
434: }
435: break;
436: }
437: if (!END_OF_COMMAND && isstring(c_token)) {
438: quote_str(emf_defaultfontname, c_token, MAX_ID_LEN);
439: c_token++;
440: }
441: if (!END_OF_COMMAND) {
442: /* We have font size specified */
443: struct value a;
444: emf_defaultfontsize = (int) real(const_express(&a));
445: }
446: EMF_set_font(NULL); /* set default font */
447:
448: sprintf(term_options, "%s %s \"%s\" %d",
449: emf_monochrome ? "monochrome" : "color",
450: emf_dashed ? "dashed" : "solid",
451: emf_defaultfontname, emf_defaultfontsize);
452: }
453:
454: TERM_PUBLIC void
455: EMF_init()
456: {
457: emf_posx = emf_posy = 0;
458: emf_linetype = 0;
459: emf_vert_text = 0;
460: emf_graphics = FALSE;
461: }
462:
463: TERM_PUBLIC void
464: EMF_graphics()
465: {
466: /* header start */
467: emf_record_count = 0;
468: EMF_write_emr(1, 100);
469: EMF_write_long(0); /* rclBounds */
470: EMF_write_long(0);
471: EMF_write_long(term->xmax / 20);
472: EMF_write_long(term->ymax / 20);
473: EMF_write_long(0); /* rclFrame */
474: EMF_write_long(0);
475: EMF_write_long(term->xmax);
476: EMF_write_long(term->ymax);
477: EMF_write_long(0x464D4520); /* signature */
478: EMF_write_long(0x00010000); /* version */
479: EMF_write_long(0); /* nBytes */
480: EMF_write_long(0); /* nRecords */
481: EMF_write_short(EMF_HANDLE_MAX); /* nHandles */
482: EMF_write_short(0); /* reserved */
483: EMF_write_long(0); /* descSize */
484: EMF_write_long(0); /* descOff */
485: EMF_write_long(0); /* nPalEntries */
486: EMF_write_long(1600); /* ref dev pixwidth */
487: EMF_write_long(1200); /* ref dev pixheight */
488: EMF_write_long(320); /* ref dev mwidth */
489: EMF_write_long(240); /* ref dev mheight */
490: EMF_write_long(0); /* cbPixelFormat */
491: EMF_write_long(0); /* offPixelFormat */
492: EMF_write_long(0); /* bOpenGL */
493: emf_graphics = TRUE;
494: /* header end */
495:
496: EMF_SetMapMode(8); /* forcing anisotropic mode */
497: EMF_SetWindowExtEx(term->xmax, term->ymax); /* setting logical (himetric) size */
498: EMF_SetViewportExtEx(term->xmax / 20, term->ymax / 20); /* setting device (pixel) size */
499: EMF_CreatePen(EMF_HANDLE_PEN, 0, 1, 0x000000); /* init default pen */
500: EMF_SelectObject(EMF_HANDLE_PEN);
501: EMF_SetBkMode(1); /* transparent background for text */
502: EMF_CreateBrush(EMF_HANDLE_BRUSH, 1, 0, 0); /* transparent brush for polygons */
503: EMF_SelectObject(EMF_HANDLE_BRUSH);
504: EMF_set_font(NULL); /* init default font */
505: }
506:
507: TERM_PUBLIC int
508: EMF_set_font(char *font)
509: {
510: int sep; /* hope this function exist everywhere... */
511:
512: if (font && *font) {
513: char *comma = strchr(font, ',');
514: if (comma == NULL)
515: return FALSE; /* bad format */
516: sep = comma - font;
517: safe_strncpy(emf_fontname, font, min(sep + 1, 32));
518: emf_fontsize = atoi(&font[sep + 1]);
519: } else {
520: strcpy(emf_fontname, emf_defaultfontname);
521: emf_fontsize = emf_defaultfontsize;
522: }
523: term->h_char = (emf_fontsize * EMF_PT2HM);
524: term->v_char = (emf_fontsize * EMF_PT2HM);
525: EMF_setfont();
526: return TRUE;
527: }
528:
529: TERM_PUBLIC void
530: EMF_text()
531: {
532: long pos;
533: EMF_flush_polyline();
534:
535: /* writing end of metafile */
536: EMF_SelectObject(EMF_STOCK_OBJECT_DEFAULT_FONT);
537: EMF_DeleteObject(EMF_HANDLE_FONT);
538: EMF_SelectObject(EMF_STOCK_OBJECT_BLACK_PEN);
539: EMF_DeleteObject(EMF_HANDLE_PEN);
540: EMF_SelectObject(EMF_STOCK_OBJECT_WHITE_BRUSH);
541: EMF_DeleteObject(EMF_HANDLE_BRUSH);
542: EMF_EOF();
543:
544: /* updating header */
545: pos = ftell(gpoutfile);
546: fseek(gpoutfile, 48, SEEK_SET);
547: EMF_write_long(pos);
548: EMF_write_long(emf_record_count);
549: /* HBB 20010228: have to make known that we're no longer in graphics
550: * status. */
551: emf_graphics = FALSE;
552: }
553:
554: TERM_PUBLIC void
555: EMF_linetype(linetype)
556: int linetype;
557: {
558: /* Note : separating linetype and color would have not been futile, but anyway... */
559:
560: assert(linetype >= -2);
561: if (linetype == emf_linetype)
562: return;
563: emf_linetype = linetype;
564:
565: EMF_linecolor(linetype);
566: EMF_dashtype(linetype);
567: }
568:
569: TERM_PUBLIC void
570: EMF_linecolor(linecolor)
571: int linecolor;
572: {
573: static long GPFAR color_table_data[] =
574: {
575: RGB(255, 0, 0), /* red */
576: RGB(0, 255, 0), /* green */
577: RGB(0, 0, 255), /* blue */
578: RGB(255, 0, 255), /* magenta */
579: RGB(0, 0, 128), /* dark blue */
580: RGB(128, 0, 0), /* dark red */
581: RGB(0, 128, 128), /* dark cyan */
582: RGB(0, 0, 0), /* black */
583: RGB(128, 128, 128), /* grey */
584: RGB(0, 128, 64), /* very dark cyan */
585: RGB(128, 128, 0), /* dark yellow */
586: RGB(128, 0, 128), /* dark magenta */
587: RGB(192, 192, 192), /* light grey */
588: RGB(0, 255, 255), /* cyan */
589: RGB(255, 255, 0), /* yellow */
590: };
591:
592: assert(linecolor >= -2);
593: linecolor = (linecolor < 0 || emf_monochrome) ? 7 : (linecolor % EMF_COLORS);
594: if (color_table_data[linecolor] == emf_color)
595: return;
596: emf_color = color_table_data[linecolor];
597:
598: EMF_flush_polyline();
599: }
600:
601: TERM_PUBLIC void
602: EMF_linewidth(width)
603: double width;
604: {
605: assert(width >= 0);
606: if (width == emf_linewidth)
607: return;
608: emf_linewidth = width;
609:
610: EMF_dashtype(emf_dashtype); /* have dash lengths recalculated */
611: }
612:
613: TERM_PUBLIC void
614: EMF_dashtype(dashtype)
615: int dashtype;
616: {
617: int i, j;
618: /* Each group of 8 entries in dot_length[] defines a dash
619: pattern. Entries in each group are alternately length of
620: whitespace and length of line, in units of 2/3 of the
621: linewidth. */
622: static int dot_length[EMF_LINE_TYPES * 8] =
623: { /* 0 - solid */
624: 5, 8, 5, 8, 5, 8, 5, 8, /* 1 - dashes */
625: 4, 2, 4, 2, 4, 2, 4, 2, /* 2 - dotted */
626: 4, 8, 4, 2, 4, 8, 4, 2, /* 3 - dash-dot */
627: 4, 9, 4, 2, 4, 2, 0, 0, /* 4 - dash-dot-dot */
628: };
629:
630:
631: assert(dashtype >= -2);
632: if (dashtype == emf_dashtype)
633: return;
634:
635: emf_dashtype = dashtype;
636:
637: EMF_flush_polyline();
638:
639: if (dashtype >= 0)
640: dashtype = (dashtype / EMF_COLORS) % EMF_LINE_TYPES;
641:
642: if (dashtype < 1 || !emf_dashed) { /* solid mode */
643: EMF_SelectObject(EMF_STOCK_OBJECT_BLACK_PEN);
644: EMF_DeleteObject(EMF_HANDLE_PEN);
645: EMF_CreatePen(EMF_HANDLE_PEN, 0, emf_linewidth * EMF_PX2HM, emf_color);
646: EMF_SelectObject(EMF_HANDLE_PEN);
647:
648: term->vector = EMF_solid_vector;
649: } else { /* Since win32 dashed lines works only with 1 pixel linewith we must emulate */
650: EMF_SelectObject(EMF_STOCK_OBJECT_BLACK_PEN);
651: EMF_DeleteObject(EMF_HANDLE_PEN);
652: EMF_CreatePen(EMF_HANDLE_PEN, 0, emf_linewidth * EMF_PX2HM, emf_color);
653: EMF_SelectObject(EMF_HANDLE_PEN);
654:
655: term->vector = EMF_dashed_vector;
656:
657: /* set up dash dimensions */
658: j = (dashtype - 1) * 8;
659: for (i = 0; i < 8; i++, j++) {
660: if (dot_length[j])
661: emf_step_sizes[i] = (dot_length[j] * emf_linewidth * EMF_PX2HM) * 3 / 3;
662: else
663: emf_step_sizes[i] = 0;
664: }
665: /* first thing drawn will be a line */
666: emf_step = emf_step_sizes[1];
667: emf_step_index = 1;
668: }
669: }
670:
671: TERM_PUBLIC void
672: EMF_move(x, y)
673: unsigned int x, y;
674: {
675: assert(x < term->xmax && y < term->ymax);
676: if (x == emf_posx && y == emf_posy)
677: return;
678: EMF_flush_polyline();
679: emf_posx = x;
680: emf_posy = y;
681: }
682:
683: TERM_PUBLIC void
684: EMF_dashed_vector(ux, uy)
685: unsigned int ux, uy;
686: {
687: int xa, ya;
688: int dx, dy, adx, ady;
689: int dist; /* approximate distance in plot units from starting point to specified end point. */
690: long remain; /* approximate distance in plot units remaining to specified end point. */
691:
692: assert(ux < term->xmax && uy < term->ymax);
693:
694: dx = (ux - emf_posx);
695: dy = (uy - emf_posy);
696: adx = abs(dx);
697: ady = abs(dy * 10);
698:
699: /* using the approximation sqrt(x**2 + y**2) ~ x + (5*x*x)/(12*y) when x > y.
700: Note ordering of calculations to avoid overflow on 16 bit architectures */
701: if (10 * adx < ady)
702: dist = (ady / 2 + 25 * adx / ady * adx / 6 * 5) / 5;
703: else {
704: if (adx == 0)
705: return;
706: dist = (adx * 10 + (ady / 24) * (ady / adx)) / 10;
707: }
708: remain = dist;
709: xa = emf_posx;
710: ya = emf_posy;
711: while (remain > emf_step) {
712: remain -= emf_step;
713: if (emf_step_index & 1)
714: EMF_solid_vector((int) (ux - (remain * dx) / dist), (int) (uy - (remain * dy) / dist));
715: else {
716: xa = (int) (ux - (remain * dx) / dist);
717: ya = (int) (uy - (remain * dy) / dist);
718: EMF_move(xa, ya);
719: }
720: if (++emf_step_index >= 8)
721: emf_step_index = 0;
722: emf_step = emf_step_sizes[emf_step_index];
723: }
724: if (emf_step_index & 1)
725: EMF_solid_vector(ux, uy);
726: else
727: EMF_move(ux, uy);
728: emf_step -= (int) remain;
729: }
730:
731: TERM_PUBLIC void
732: EMF_solid_vector(ux, uy)
733: unsigned int ux, uy;
734: {
735: assert(ux < term->xmax && uy < term->ymax);
736: if (ux == emf_posx && uy == emf_posy)
737: return;
738: if (emf_coords * 2 > EMF_MAX_SEGMENTS - 2)
739: EMF_flush_polyline();
740: if (emf_coords == 0) {
741: emf_polyline[0] = emf_posx;
742: emf_polyline[1] = emf_posy;
743: emf_coords++;
744: }
745: emf_posx = emf_polyline[emf_coords * 2] = ux;
746: emf_posy = emf_polyline[emf_coords * 2 + 1] = uy;
747: emf_coords++;
748: }
749:
750: TERM_PUBLIC void
751: EMF_put_text(x, y, str)
752: unsigned int x, y;
753: char str[];
754: {
755: int i, len = strlen(str);
756: if (len % 2) /* Must be long aligned! */
757: len++;
758: EMF_flush_polyline();
759: EMF_SetTextColor(emf_color); /* since text doesn't use pens, we must initialize with this */
760: EMF_write_emr(84, 76 + len * 2); /* exttextoutw, yes it's the 16bits char version! */
761: EMF_write_rectl(0, 0, 0, 0); /* bounding, never used */
762: EMF_write_long(1); /* GM_Compatible mode for advanced scaling */
763: EMF_write_float(EMF_PX2HM); /* x scale */
764: EMF_write_float(EMF_PX2HM); /* y scale */
765: EMF_write_pointl(x + (long) ((EMF_VCHAR / 2) * sin(emf_vert_text * EMF_10THDEG2RAD)), term->ymax - y + (long) ((EMF_VCHAR / 2) * cos(emf_vert_text * EMF_10THDEG2RAD))); /* positioning... y is recentered from bottom reference set in text align */
766: EMF_write_long(strlen(str)); /* real char size */
767: EMF_write_long(76); /* offset to text */
768: EMF_write_long(0); /* options, none */
769: EMF_write_rectl(0, 0, 0, 0); /* rectangle clipping not used */
770: EMF_write_long(0); /* offset to dx, can't be used since really we don't know anything about the face properties used */
771:
772: for (i = 0; i < len; i++) { /* it is safe to go up to strlen+1 for aligning to long */
773: char pad = 0;
774: fwrite(&str[i], 1, 1, gpoutfile);
775: fwrite(&pad, 1, 1, gpoutfile);
776: }
777: emf_posx = emf_posy = -2000;
778: }
779:
780: TERM_PUBLIC int
781: EMF_text_angle(ang)
782: int ang;
783: {
784: /* Note : why did they use choose only 0 and 1? That's stupid! */
785: /* Win GDI rotation is scaled in tenth of degrees, so... */
786: switch (ang) {
787: case 0: /* left right */
788: if (emf_vert_text != 0) {
789: emf_vert_text = 0;
790: EMF_setfont();
791: }
792: break;
793: case 1: /* bottom up */
794: if (emf_vert_text != 900) {
795: emf_vert_text = 900;
796: EMF_setfont();
797: }
798: break;
799: }
800: return TRUE;
801: }
802:
803: TERM_PUBLIC int
804: EMF_justify_text(mode)
805: enum JUSTIFY mode;
806: {
807: int align = 8; /* y referenced to bottom */
808: switch (mode) {
809: case LEFT:
810: align |= 0;
811: break;
812: case RIGHT:
813: align |= 2;
814: break;
815: case CENTRE:
816: align |= 6;
817: break;
818: }
819: EMF_SetTextAlign(align);
820: return (TRUE);
821: }
822:
823: TERM_PUBLIC void
824: EMF_reset()
825: {
826: emf_posx = emf_posy = 0;
827: emf_graphics = FALSE;
828: }
829:
830: TERM_PUBLIC void
831: EMF_point(x, y, number)
832: unsigned int x, y;
833: int number;
834: {
835: int old_dashtype;
836: unsigned long old_linecolor;
837:
838: EMF_flush_polyline();
839: old_dashtype = emf_dashtype;
840: old_linecolor = emf_color;
841: EMF_linecolor(number);
842: EMF_dashtype(number % EMF_COLORS);
843:
844: if (number < 0) { /* draw dot */
845: EMF_move(x, y);
846: EMF_solid_vector(x + 1, y);
847: goto end_points;
848: }
849: number = (number / EMF_COLORS) % EMF_POINTS;
850:
851: switch (number) {
852: case 0: /* draw diamond */
853: EMF_move(x - emf_tic, y);
854: EMF_solid_vector(x, y - emf_tic);
855: EMF_solid_vector(x + emf_tic, y);
856: EMF_solid_vector(x, y + emf_tic);
857: EMF_flush_polygon();
858: break;
859: case 1: /* draw plus */
860: EMF_move(x - emf_tic, y);
861: EMF_solid_vector(x + emf_tic, y);
862: EMF_move(x, y - emf_tic);
863: EMF_solid_vector(x, y + emf_tic);
864: break;
865: case 2: /* draw box */
866: EMF_move(x - emf_tic707, y - emf_tic707);
867: EMF_solid_vector(x + emf_tic707, y - emf_tic707);
868: EMF_solid_vector(x + emf_tic707, y + emf_tic707);
869: EMF_solid_vector(x - emf_tic707, y + emf_tic707);
870: EMF_flush_polygon();
871: break;
872: case 3: /* draw X */
873: EMF_move(x - emf_tic707, y - emf_tic707);
874: EMF_solid_vector(x + emf_tic707, y + emf_tic707);
875: EMF_move(x - emf_tic707, y + emf_tic707);
876: EMF_solid_vector(x + emf_tic707, y - emf_tic707);
877: break;
878: case 4: /* draw triangle (point up) */
879: EMF_move(x, y + emf_tic1241);
880: EMF_solid_vector(x - emf_tic1077, y - emf_tic621);
881: EMF_solid_vector(x + emf_tic1077, y - emf_tic621);
882: EMF_flush_polygon();
883: break;
884: case 5: /* draw star (asterisk) */
885: EMF_move(x, y - emf_tic);
886: EMF_solid_vector(x, y + emf_tic);
887: EMF_move(x + emf_tic866, y - emf_tic500);
888: EMF_solid_vector(x - emf_tic866, y + emf_tic500);
889: EMF_move(x + emf_tic866, y + emf_tic500);
890: EMF_solid_vector(x - emf_tic866, y - emf_tic500);
891: break;
892: case 6: /* draw triangle (point down) */
893: EMF_move(x, y - emf_tic1241);
894: EMF_solid_vector(x - emf_tic1077, y + emf_tic621);
895: EMF_solid_vector(x + emf_tic1077, y + emf_tic621);
896: EMF_flush_polygon();
897: break;
898: case 7: /* draw circle (actually, dodecagon)
899: (WinWord 6 accepts the CGM "circle"
900: element, but the resulting circle
901: is not correctly centered!) */
902: EMF_move(x, y - emf_tic);
903: EMF_solid_vector(x + emf_tic500, y - emf_tic866);
904: EMF_solid_vector(x + emf_tic866, y - emf_tic500);
905: EMF_solid_vector(x + emf_tic, y);
906: EMF_solid_vector(x + emf_tic866, y + emf_tic500);
907: EMF_solid_vector(x + emf_tic500, y + emf_tic866);
908: EMF_solid_vector(x, y + emf_tic);
909: EMF_solid_vector(x - emf_tic500, y + emf_tic866);
910: EMF_solid_vector(x - emf_tic866, y + emf_tic500);
911: EMF_solid_vector(x - emf_tic, y);
912: EMF_solid_vector(x - emf_tic866, y - emf_tic500);
913: EMF_solid_vector(x - emf_tic500, y - emf_tic866);
914: EMF_flush_polygon();
915: break;
916: }
917: end_points:
918: emf_color = old_linecolor;
919: EMF_dashtype(old_dashtype);
920: }
921:
922:
923: TERM_PUBLIC void
924: EMF_set_pointsize(size)
925: double size;
926: {
927: emf_tic = (size * term->h_tic / 2);
928: emf_tic707 = emf_tic * 12 / 17;
929: emf_tic866 = emf_tic * 13 / 15;
930: emf_tic500 = emf_tic / 2;
931: emf_tic1241 = emf_tic * 36 / 29;
932: emf_tic1077 = emf_tic * 14 / 13;
933: emf_tic621 = emf_tic * 18 / 29;
934: }
935:
936: #ifdef DEFEAT_ASSERTIONS
937: #define NDEBUG
938: #include <assert.h>
939: #undef DEFEAT_ASSERTIONS
940: #endif /* DEFEAT_ASSERTIONS */
941:
942: #ifdef NEXT
943: #undef id
944: #undef datum
945: #endif
946:
947: #endif /* TERM_BODY */
948:
949: #ifdef TERM_TABLE
950: TERM_TABLE_START(emf_driver)
951: "emf", "Enhanced Metafile format",
952: EMF_XMAX, EMF_YMAX, EMF_VCHAR, EMF_HCHAR,
953: EMF_VTIC, EMF_HTIC, EMF_options, EMF_init, EMF_reset,
954: EMF_text, null_scale, EMF_graphics, EMF_move, EMF_solid_vector,
955: EMF_linetype, EMF_put_text, EMF_text_angle,
956: EMF_justify_text, EMF_point, do_arrow, EMF_set_font,
957: EMF_set_pointsize,
958: TERM_BINARY, /* various flags */
959: NULL, /* after one plot of multiplot */
960: NULL, /* before subsequent plot of multiplot */
961: NULL, /* clear part of multiplot */
962: EMF_linewidth
963: TERM_TABLE_END(emf_driver)
964: #undef LAST_TERM
965: #define LAST_TERM emf_driver
966:
967: #endif /* TERM_TABLE */
968: #endif /* TERM_PROTO_ONLY */
969:
970: #ifdef TERM_HELP
971: START_HELP(emf)
972: "1 emf",
973: "?commands set terminal emf",
974: "?set terminal emf",
975: "?set term emf",
976: "?terminal emf",
977: "?term emf",
978: "?emf",
979: " The `emf` terminal generates an Enhanced Metafile Format file. This file format",
980: " is the metafile standard on MS Win32 Systems"
981: "",
982: " Syntax:",
983: " set terminal emf {<color>} {solid | dashed}",
984: " {\"<font>\"} {<fontsize>}",
985: "",
986: " <color> is either `color` or `monochrome`; ",
987: " `solid` draws all curves with solid lines, overriding any dashed patterns;",
988: " <font> is the name of a font; and ",
989: " `<fontsize>` is the size of the font in points.",
990: "",
991: " The first two options can be in any order. Selecting `default` sets all",
992: " options to their default values.",
993: "",
994: " Examples:",
995: " set terminal emf 'Times Roman Italic' 12",
996: " set terminal emf color solid # no pesky dashes!"
997: END_HELP(emf)
998: #endif /* TERM_HELP */
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to emf.trm CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / gnuplot / term