Annotation of OpenXM_contrib/gnuplot/term/tgif.trm, Revision 1.1.1.2
1.1 maekawa 1: /*{{{}}}*/
2: /***************************************************************************/
3: /* */
1.1.1.2 ! maekawa 4: /* $Id: tgif.trm,v 1.10 1998/12/16 19:48:20 lhecking Exp $ */
1.1 maekawa 5: /* */
6: /***************************************************************************/
7: /* GNUPLOT - tgif.trm */
8:
9:
10: /*[
11: * Copyright 1990 - 1993, 1998
12: *
13: * Permission to use, copy, and distribute this software and its
14: * documentation for any purpose with or without fee is hereby granted,
15: * provided that the above copyright notice appear in all copies and
16: * that both that copyright notice and this permission notice appear
17: * in supporting documentation.
18: *
19: * Permission to modify the software is granted, but not the right to
20: * distribute the complete modified source code. Modifications are to
21: * be distributed as patches to the released version. Permission to
22: * distribute binaries produced by compiling modified sources is granted,
23: * provided you
24: * 1. distribute the corresponding source modifications from the
25: * released version in the form of a patch file along with the binaries,
26: * 2. add special version identification to distinguish your version
27: * in addition to the base release version number,
28: * 3. provide your name and address as the primary contact for the
29: * support of your modified version, and
30: * 4. retain our contact information in regard to use of the base
31: * software.
32: * Permission to distribute the released version of the source code along
33: * with corresponding source modifications in the form of a patch file is
34: * granted with same provisions 2 through 4 for binary distributions.
35: *
36: * This software is provided "as is" without express or implied warranty
37: * to the extent permitted by applicable law.
38: ]*/
39:
40: /* */
41: /* This file is included by ../term.c. */
42: /* */
43: /* This terminal driver supports: */
44: /* TGIF */
45: /* */
46: /* AUTHORS: */
47: /* Werner Geppert and Andreas Kuhlewind */
48: /* March, 21st 1995 */
49: /* */
50: /* send your comments or suggestions to werner@mez.ruhr-uni-bochum.de */
51: /* */
52: /* */
53: /* MODIFIED May, 11st 1997 by NOVÁK Levente (novakl@tigris.klte.hu): */
54: /* */
55: /* - Modified the default linewidth for borders from 3 to 2 */
56: /* - Modified the default size of markers' bounding box */
57: /* to allow nicer shapes */
58: /* - Slightly modified the markers and added several new ones, */
59: /* now we have 64 different pointtypes, the same as for the */
60: /* PostScript terminal */
61: /* - I left the %.1f format for pixel positions, but I think */
62: /* Tgif does only calculate with integer positions */
63:
64:
65: /***************************************************************************/
66:
67: /*}}} */
68: /***************************************************************************/
69: #include "driver.h"
70:
71: #ifdef TERM_REGISTER
72: register_term(tgif)
73: #endif
74:
75: #ifdef TERM_PROTO
76: TERM_PUBLIC void TGIF_options __PROTO((void));
77: TERM_PUBLIC void TGIF_init __PROTO((void));
78: TERM_PUBLIC void TGIF_reset __PROTO((void));
79: TERM_PUBLIC void TGIF_text __PROTO((void));
80: TERM_PUBLIC void TGIF_graphics __PROTO((void));
81: TERM_PUBLIC void TGIF_move __PROTO((unsigned int ux, unsigned int uy));
82: TERM_PUBLIC void TGIF_vector __PROTO((unsigned int ux, unsigned int uy));
83: TERM_PUBLIC void TGIF_linetype __PROTO((int linetype));
84: TERM_PUBLIC void TGIF_put_text __PROTO((unsigned int ux, unsigned int uy, char *str)); /* ref point and text */
85: TERM_PUBLIC int TGIF_text_angle __PROTO((int ang));
86: TERM_PUBLIC int TGIF_justify_text __PROTO((enum JUSTIFY mode));
87: TERM_PUBLIC void TGIF_point __PROTO((unsigned int ux, unsigned int uy, int number));
88: TERM_PUBLIC void TGIF_arrow __PROTO((unsigned int sx, unsigned int sy, unsigned int ex, unsigned int ey, TBOOLEAN head));
89: TERM_PUBLIC int TGIF_set_font __PROTO((char *font));
90: TERM_PUBLIC void TGIF_set_pointsize __PROTO((double size));
91: /*}}} */
92: /* default length for static strings */
93: #define TGIF_STRLEN_MAX 255
94:
95: /* standard x/y plot size in portrait mode */
96: #define TGIF_XMAX 950
97: #define TGIF_YMAX 634
98:
99: /* total available plotting area */
100: #define TGIF_XTOT 950
101: #define TGIF_YTOT 1400
102:
103: /* Offset */
104: #define TGIF_XOFF 50
105: #define TGIF_YOFF 50
106:
107: #define TGIF_XSHIFT 1030 /* 80 points skip */
108: #define TGIF_YSHIFT 714
109:
110: #define TGIF_VCHAR 18 /* default is 18 pt */
111: #define TGIF_HCHAR (18*6/10)
112:
113: #define TGIF_VTIC (TGIF_YMAX/80)
114: #define TGIF_HTIC (TGIF_YMAX/80)
115:
116:
117: #define TGIF_MAXPOLY 100
118: /*}}} */
119: #define GOT_TGIF_PROTO
120: #endif
121:
122: #ifndef TERM_PROTO_ONLY
123:
124: #ifdef TERM_BODY
125: /* tgif driver by Werner Geppert, werner@mez.ruhr-uni-bochum.de */
126: /***************************************************************************/
127: /* Variables: */
128: static unsigned int uLastTgifX, uLastTgifY; /* last Coordinate */
129:
130: static unsigned int uActNr; /* current elementnumber */
131: static unsigned int uActPage; /* current pagenumber */
132: static unsigned int uActResolution; /* resolution in percent */
133: static unsigned int uActZoom; /* zoom factor */
134: static unsigned int uActAngle; /* current textangle */
135: static unsigned int uActThick; /* actual linethickness */
136: static unsigned int uActPointSize; /* point size */
137: static unsigned int uActStyle; /* actual linestyle */
138: static unsigned int uActJust; /* actual textjustification */
139: static unsigned int uXshift; /* actual shift x */
140: static unsigned int uYshift; /* actual shift y */
141: static unsigned int uTgifPlotCount; /* counts number of plots */
142: static unsigned int uTgifPlotRow, uTgifPlotCol; /* actual plot row and col */
143: static unsigned int uTgif_win_horiz, /* number of plots in x and */ uTgif_win_verti; /* y direction [x,y] */
144:
145:
146:
147: static char sActColor[TGIF_STRLEN_MAX]; /* current color */
148: static unsigned int uDefaultFontSize; /* default font size */
149: static unsigned int uActFontSize; /* current font size */
150: static char sDefaultFont[TGIF_STRLEN_MAX]; /* default font */
151: static char sActFont[TGIF_STRLEN_MAX]; /* current font */
152: /* static char sActPointString[TGIF_STRLEN_MAX]; HBB: unused */
153:
154: static TBOOLEAN TgifSolid = FALSE;
155: static TBOOLEAN TgifPortrait = TRUE;
156:
157: static unsigned int uTgifPlotsPerPage = 1;
158: static unsigned int uTextAngle[] =
159: {0, 3};
160:
161: /*
162: * 10 different pointtypes need 10 different linetypes
163: */
164:
165: /* NL: Modified first value to 2 from 3 */
166: static unsigned int uLineThick[] = { 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 };
167: static unsigned int uLineStyle[] = { 0, 5, 0, 1, 2, 3, 4, 5, 6, 7, 8, 0 };
168: static char *psColors[] =
169: {
170: "black", "black", /* border and x/y-zero-axes */
171: "red", "green", "blue", "magenta", "cyan", "yellow",
172: "DarkSeaGreen", "HotPink", "black", "coral"};
173:
174: #if 0 /* HBB: unused */
175: static char *psFonts[] =
176: {"Times-Roman", "Courier", "Helvetica", "NewCenturySchlbk-Roman", "Symbol", NULL};
177:
178: static unsigned int psFontSizes[] =
179: { 8, 10, 11, 12, 14, 17, 18, 20, 24, 25, 34, 40, 45, 50 };
180: #endif
181:
182: static int iTgifPolyCount;
183: static unsigned int uBuffX[TGIF_MAXPOLY], uBuffY[TGIF_MAXPOLY];
184:
185: enum eState {
186: NEWPOLY = 100, INPOLY
187: };
188: static enum eState eTgifState = NEWPOLY;
189:
190: static void TGIF_flush_poly __PROTO((void));
191:
192:
193:
194: /*}}} */
195: /***************************************************************************/
196: static void TGIF_flush_poly()
197: {
198: int i;
199:
200:
201: if (eTgifState == INPOLY) {
202: fprintf(gpoutfile, "poly('%s',%d,[\n\t", sActColor, iTgifPolyCount);
203:
204: for (i = 0; i < iTgifPolyCount - 1; i++) {
205: fprintf(gpoutfile, "%u,%u,", uBuffX[i], uBuffY[i]);
206: if ((i + 1) % 8 == 0)
207: fputs("\n\t", gpoutfile);
208: }
209:
210: fprintf(gpoutfile, "%u,%u],0,%u,1,%u,0,0,%u,0,8,3,0,[\n]).\n",
211: uBuffX[iTgifPolyCount - 1], uBuffY[iTgifPolyCount - 1],
212: uActThick, uActNr, uActStyle);
213:
214: uActNr++;
215:
216: eTgifState = NEWPOLY;
217: iTgifPolyCount = 0;
218: if (gpoutfile != (FILE *) NULL)
219: fflush(gpoutfile);
220: }
221: } /* TGIF_flush_poly */
222: /*}}} */
223: /***************************************************************************/
224: TERM_PUBLIC void TGIF_options()
225: {
226:
227: struct value a, b;
228: double dscaleH, dscaleV;
229:
230:
231: strcpy(sActFont, "Helvetica");
232: strcpy(sDefaultFont, "Helvetica");
233: uActFontSize = 18;
234: uDefaultFontSize = 18;
235: term->v_char = (unsigned int) (uActFontSize);
236: term->h_char = (unsigned int) (uActFontSize * 6 / 10);
237:
238: TgifPortrait = TRUE;
239: uTgifPlotsPerPage = 1;
240: uTgifPlotRow = 1;
241: uTgifPlotCol = 1;
242: uTgif_win_horiz = 1;
243: uTgif_win_verti = 1;
244: uActResolution = 100;
245:
246:
247: /*}}} */
248:
249: if (!END_OF_COMMAND) {
250: if (almost_equals(c_token, "p$ortrait")) {
251: TgifPortrait = TRUE;
252: c_token++;
253: } else if (almost_equals(c_token, "l$andscape")) {
254: TgifPortrait = FALSE;
255: uActResolution = 140;
256: c_token++;
257: }
258: }
259: /*}}} */
260:
261: if (!END_OF_COMMAND) {
262: if (equals(c_token, "[")) { /* windows specified */
263: c_token++;
264: if (END_OF_COMMAND) {
265: int_error("no. windows: [horizontal,vertical] expected", c_token);
266: } else if (!equals(c_token, ",")) {
267: uTgif_win_horiz = (int) real(const_express(&a));
268: }
269: if (!equals(c_token, ","))
270: int_error("',' expected", c_token);
271: c_token++;
272: if (!equals(c_token, "]")) {
273: uTgif_win_verti = (int) real(const_express(&a));
274: }
275: if (!equals(c_token, "]"))
276: int_error("expecting ']'", c_token);
277: c_token++;
278:
279: uTgifPlotsPerPage = uTgif_win_verti * uTgif_win_horiz;
280:
281:
282: }
283: }
284: /*}}} */
285:
286: if (!END_OF_COMMAND) {
287: if (almost_equals(c_token, "s$olid")) {
288: TgifSolid = TRUE;
289: c_token++;
290: } else if (almost_equals(c_token, "d$ashed")) {
291: TgifSolid = FALSE;
292: c_token++;
293: }
294: }
295: /*}}} */
296:
297: if (!END_OF_COMMAND && isstring(c_token)) {
298: quote_str(sActFont, c_token, MAX_LINE_LEN);
299: strcpy(sDefaultFont, sActFont);
300: c_token++;
301: }
302: if (!END_OF_COMMAND) {
303: /* We have font size specified */
304: uActFontSize = (unsigned int) real(const_express(&b));
305: uDefaultFontSize = uActFontSize;
306: term->v_char = (unsigned int) (uActFontSize);
307: term->h_char = (unsigned int) (uActFontSize * 6 / 10);
308: }
309: /*}}} */
310:
311: if (TgifPortrait) {
312: dscaleH = (double) 100.0 *(TGIF_XTOT) / (xsize * (TGIF_XMAX + (uTgif_win_horiz - 1) * TGIF_XSHIFT));
313: dscaleV = (double) 100.0 *(TGIF_YTOT) / (ysize * (TGIF_YMAX + (uTgif_win_verti - 1) * TGIF_YSHIFT));
314: uActResolution = (int) GPMIN(dscaleH, dscaleV);
315: switch (uTgif_win_verti) {
316: case 1:
317: uActZoom = 0;
318: break;
319:
320: case 2:
321: uActZoom = 1;
322: break;
323: default:
324: uActZoom = 2;
325: break;
326:
327: }
328: } else {
329: dscaleH = (double) 100.0 *(TGIF_YTOT) / (xsize * (TGIF_XMAX + (uTgif_win_horiz - 1) * TGIF_XSHIFT));
330: dscaleV = (double) 100.0 *(TGIF_XTOT) / (ysize * (TGIF_YMAX + (uTgif_win_verti - 1) * TGIF_YSHIFT));
331: uActResolution = (unsigned int) GPMIN(dscaleH, dscaleV);
332:
333: switch (uTgif_win_verti) {
334: case 1:
335: uActZoom = 0;
336: break;
337:
338: case 2:
339: uActZoom = 1;
340: break;
341: default:
342: uActZoom = 2;
343: break;
344:
345: }
346: }
347:
348: /*}}} */
349:
350: sprintf(term_options, "%s [%u,%u] %s \"%s\" %u",
351: TgifPortrait ? "portrait" : "landscape",
352: uTgif_win_horiz, uTgif_win_verti,
353: TgifSolid ? "solid" : "dashed",
354: sActFont, uActFontSize);
355: }
356: /*}}} */
357: /***************************************************************************/
358: TERM_PUBLIC void TGIF_init()
359: {
360:
361: if (multiplot) {
362: /* uActResolution= TgifPortrait ? (unsigned int)100 : (unsigned int)145 ; */
363: uActResolution = (unsigned int) 100;
364:
365: if (uTgifPlotsPerPage > 1) {
366: fputs("warning: using standard multiplot\n", stderr);
367: uTgifPlotsPerPage = 1;
368: }
369: uActZoom = 1;
370: }
371: fprintf(gpoutfile, "\
372: %%TGIF 2.15-p7\n\
373: state(%d,30,%u,0,0,%u,16,1,9,1,1,0,0,0,0,1,0,'%s',0,%u,0,0,1,10,0,0,1,1,0,16,0,0,1,1,1).\n\
1.1.1.2 ! maekawa 374: %%\n%% @(#)$Header: /var/tmp/CVSROOT/gnuplot/term/tgif.trm,v 1.10 1998/12/16 19:48:20 lhecking Exp $\n%% %%W%%\n%%\n\
1.1 maekawa 375: page(1,\"\").\n",
376: TgifPortrait ? 0 : 1, uActResolution, uActZoom, sActFont, uActFontSize);
377: eTgifState = NEWPOLY;
378: iTgifPolyCount = 0;
379: uTgifPlotCount = 0;
380: uActPage = 1;
381:
382: } /* TGIF_init */
383: /*}}} */
384: /***************************************************************************/
385: TERM_PUBLIC void TGIF_graphics()
386: {
387:
388: TGIF_flush_poly();
389:
390: if (multiplot) {
391:
392: term->xmax = (TgifPortrait) ? TGIF_XTOT : TGIF_YTOT;
393: term->ymax = (TgifPortrait) ? TGIF_YTOT : TGIF_XTOT;
394: uLastTgifX = (TgifPortrait) ? TGIF_XOFF : TGIF_YOFF;
395: uLastTgifY = (TgifPortrait) ? TGIF_YTOT + TGIF_YOFF : TGIF_XTOT + TGIF_XOFF;
396:
397: uYshift = uLastTgifY;
398: uXshift = uLastTgifX;
399:
400: } else {
401: if (uTgifPlotCount < uTgifPlotsPerPage)
402: uTgifPlotCount++;
403: else {
404: fprintf(stderr, "error: number of plots > plots per page\n");
405: return;
406: }
407:
408: uXshift = (unsigned int) TGIF_XOFF *100 / uActResolution + (xsize * (uTgifPlotCol - 1) * TGIF_XSHIFT);
409: uYshift = (unsigned int) TGIF_YOFF *100 / uActResolution + (ysize * (TGIF_YMAX +
410: (uTgifPlotRow - 1) * TGIF_YSHIFT));
411:
412: if (uTgifPlotCount % uTgif_win_horiz == 0) {
413: uTgifPlotCol = 1;
414: uTgifPlotRow++;
415: } else {
416: uTgifPlotCol++;
417: }
418:
419: uLastTgifX = uXshift;
420: uLastTgifY = uYshift;
421:
422: }
423:
424:
425:
426:
427:
428: /* default settings for each plot */
429: iTgifPolyCount = 0;
430: uActNr = 0;
431: uActAngle = 0;
432: uActThick = 1;
433: uActStyle = 0;
434: uActJust = LEFT;
435: strcpy(sActColor, psColors[0]);
436:
437:
438: } /* TGIF_graphics */
439: /*}}} */
440: /***************************************************************************/
441: TERM_PUBLIC void TGIF_text()
442: {
443: TGIF_flush_poly();
444:
445:
446: } /* TGIF_text */
447:
448: /*}}} */
449: /***************************************************************************/
450: TERM_PUBLIC void TGIF_reset()
451: {
452: TGIF_flush_poly();
453: iTgifPolyCount = 0;
454: uTgifPlotCount = 0;
455: uTgifPlotRow = 1;
456: uTgifPlotCol = 1;
457:
458:
459: if (gpoutfile != (FILE *) NULL)
460: fflush(gpoutfile);
461:
462: } /* TGIF_reset */
463: /*}}} */
464: /***************************************************************************/
465: TERM_PUBLIC void TGIF_linetype(linetype)
466: int linetype;
467: {
468: unsigned int ult;
469:
470:
471: TGIF_flush_poly();
472:
473:
474: if (linetype >= 0)
475: ult = 2 + linetype % 10;
476: else
477: ult = linetype + 2;
478:
479: strcpy(sActColor, psColors[ult]);
480: uActThick = uLineThick[ult];
481: if (!TgifSolid)
482: uActStyle = uLineStyle[ult];
483: else {
484: if (ult == 1) /* grid */
485: uActStyle = uLineStyle[ult];
486: else
487: uActStyle = uLineStyle[2];
488:
489: }
490:
491: } /* TGIF_linetype */
492: /*}}} */
493: /***************************************************************************/
494: TERM_PUBLIC void TGIF_move(ux, uy)
495: unsigned int ux, uy;
496: {
497:
498: uLastTgifX = ux + uXshift;
499: uLastTgifY = uYshift - uy;
500:
501: if (eTgifState == INPOLY)
502: TGIF_flush_poly();
503:
504:
505:
506: } /* TGIF_move */
507: /*}}} */
508: /***************************************************************************/
509: TERM_PUBLIC void TGIF_vector(ux, uy)
510: unsigned int ux, uy;
511: {
512:
513: ux = ux + uXshift;
514: uy = uYshift - uy;
515:
516:
517:
518: if (eTgifState == NEWPOLY) {
519: uBuffX[0] = uLastTgifX;
520: uBuffY[0] = uLastTgifY;
521: iTgifPolyCount = 1;
522: eTgifState = INPOLY;
523: }
524: uBuffX[iTgifPolyCount] = ux;
525: uBuffY[iTgifPolyCount] = uy;
526: uLastTgifX = ux;
527: uLastTgifY = uy;
528: iTgifPolyCount++;
529: eTgifState = INPOLY;
530:
531: if (iTgifPolyCount == TGIF_MAXPOLY) {
532: TGIF_flush_poly();
533:
534: }
535: } /* TGIF_vector */
536: /*}}} */
537: /***************************************************************************/
538: TERM_PUBLIC void TGIF_arrow(sx, sy, ex, ey, head)
539: unsigned int sx, sy, ex, ey;
540: TBOOLEAN head;
541: {
542:
543: TGIF_flush_poly();
544:
545: sx = sx + uXshift;
546: ex = ex + uXshift;
547: sy = uYshift - sy;
548: ey = uYshift - ey;
549:
550:
551: if (head) {
552: fprintf(gpoutfile, "poly('%s',%d,[\n\t%u,%u,%u,%u],1,%u,1,%u,0,0,%u,0,8,3,0,[\n]).\n",
553: sActColor, 2, sx, sy, ex, ey, uActThick, uActNr, uActStyle);
554: } else {
555: fprintf(gpoutfile, "poly('%s',%d,[\n\t%u,%u,%u,%u],1,%u,1,%u,0,0,%u,0,8,3,0,[\n]).\n",
556: sActColor, 2, sx, sy, ex, ey, uActThick, uActNr, uActStyle);
557: }
558:
559: uActNr++;
560:
561:
562:
563: uLastTgifX = ex;
564: uLastTgifY = ey;
565:
566: } /* TGIF_arrow */
567: /*}}} */
568: /***************************************************************************/
569: TERM_PUBLIC void TGIF_put_text(ux, uy, str)
570: unsigned int ux, uy;
571: char *str;
572: {
573:
574: unsigned int x, y;
575: struct termentry *t = term;
576:
577: TGIF_flush_poly();
578:
579: x = ux + uXshift;
580: y = uYshift - uy - t->v_char / 2;
581:
582:
583:
584: if (strlen(str) == 0)
585: return;
586:
587:
588: fprintf(gpoutfile,
589: "text('%s',%u,%u,'%s',0,%u,1,%u,%u,1,55,119,%u,0,15,4,0,0,0,0,[\n\t\"%s\"]).\n",
590: sActColor, x, y, sActFont, uActFontSize, uActJust, uActAngle, uActNr, str);
591:
592: uActNr += 2;
593:
594: /* reset font size and font, they might have been changed */
595: uActFontSize = uDefaultFontSize;
596: strcpy(sActFont, sDefaultFont);
597:
598: } /* TGIF_put_text */
599: /*}}} */
600: /***************************************************************************/
601: TERM_PUBLIC int TGIF_text_angle(ang)
602: int ang;
603: {
604: uActAngle = uTextAngle[ang]; /* 0=waag. 1=senkrecht */
605: return (TRUE);
606: } /* TGIF_text_angle */
607:
608: /*}}} */
609: /***************************************************************************/
610: TERM_PUBLIC int TGIF_justify_text(mode)
611: enum JUSTIFY mode;
612: {
613: uActJust = mode;
614: return (TRUE);
615: } /* TGIF_justify_text */
616:
617: /*}}} */
618: /***************************************************************************/
619: TERM_PUBLIC void TGIF_point(ux, uy, number)
620: unsigned int ux, uy;
621: int number;
622: {
623: double p; /* all pointtypes fit in a (x +/-p)x(y +/-p) box */
624:
625: double x, y;
626:
627:
628:
629: x = (double) (ux + uXshift);
630: y = (double) (uYshift - uy);
631:
632: p = pointsize * 8.0; /* NL: Increased the bounding box (p value) from 4.0 to 8.0 */
633: if (p == (double) 0.0)
634: p = 0.1;
635:
636: TGIF_flush_poly();
637:
638: if (number != -1)
639: number = number % 63;
640: switch (number) {
641: case -1:
642: /* HBB: corrected format string, shuts up gcc -Wall */
643: fprintf(gpoutfile, "poly('%s',2,[\n\t%.1f,%.1f,%.1f,%.1f],0,1,1,%u,0,0,0,0,8,3,0,[\n]).\n",
644: sActColor, x, y, x + 1, y + 1, uActNr++);
645: break;
646: case 0:
647: /* cross */
648: /* taking thickness 2 for cross & plus & star */
649: fprintf(gpoutfile, "\
650: group([\n\
651: poly('%s',2,[\n\t%.1f,%.1f,%.1f,%.1f],0,2,1,%u,0,0,0,0,8,3,0,[\n]).\n\
652: poly('%s',2,[\n\t%.1f,%.1f,%.1f,%.1f],0,2,1,%u,0,0,0,0,8,3,0,[\n]).\n",
653: sActColor, x - p, y - p, x + p, y + p, uActNr+1,
654: sActColor, x - p, y + p, x + p, y - p, uActNr+2);
655: uActNr += 4;
656: fprintf(gpoutfile, "],\n%u,0,[\n]).\n", uActNr++);
657: break;
658: /*}}} */
659: case 1:
660: /* plus */
661: /* taking thickness 2 for cross & plus & star */
662: fprintf(gpoutfile, "\
663: group([\n\
664: poly('%s',2,[\n\t%.1f,%.1f,%.1f,%.1f],0,2,1,%u,0,0,0,0,8,3,0,[\n]),\n\
665: poly('%s',2,[\n\t%.1f,%.1f,%.1f,%.1f],0,2,1,%u,0,0,0,0,8,3,0,[\n])\n",
666: sActColor, x, y - p - 1, x, y + p + 1, uActNr+1,
667: sActColor, x - p - 1, y, x + p + 1, y, uActNr+2);
668: uActNr += 4;
669: fprintf(gpoutfile, "],\n%u,0,[\n]).\n", uActNr++);
670: break;
671: /*}}} */
672: case 2:
673: /* star */
674: /* taking thickness 2 for cross & plus & star */
675: fprintf(gpoutfile, "group([\n");
676: fprintf(gpoutfile, "poly('%s',2,[\n\t%.1f,%.1f,%.1f,%.1f],0,2,1,%u,0,0,0,0,8,3,0,[\n]),\n",
677: sActColor, x, y - p - 1, x, y + p + 1, uActNr++);
678: fprintf(gpoutfile, "poly('%s',2,[\n\t%.1f,%.1f,%.1f,%.1f],0,2,1,%u,0,0,0,0,8,3,0,[\n])\n",
679: sActColor, x - p - 1, y, x + p + 1, y, uActNr++);
680: fprintf(gpoutfile, "poly('%s',2,[\n\t%.1f,%.1f,%.1f,%.1f],0,2,1,%u,0,0,0,0,8,3,0,[\n]).\n",
681: sActColor, x - p, y - p, x + p, y + p, uActNr++);
682: fprintf(gpoutfile, "poly('%s',2,[\n\t%.1f,%.1f,%.1f,%.1f],0,2,1,%u,0,0,0,0,8,3,0,[\n]).\n",
683: sActColor, x - p, y + p, x + p, y - p, uActNr++);
684: uActNr += 4;
685: fprintf(gpoutfile, "],\n%u,0,[\n]).\n", uActNr++);
686: break;
687: /*}}} */
688: case 3:
689: /* box */
690: fprintf(gpoutfile, "box('%s',%.1f,%.1f,%.1f,%.1f,2,1,1,%u,0,0,0,[\n]).\n",
691: sActColor, x - p, y - p, x + p, y + p, uActNr);
692: uActNr++;
693: break;
694: /*}}} */
695: case 4:
696: /* filled box */
697: fprintf(gpoutfile, "box('%s',%.1f,%.1f,%.1f,%.1f,1,1,1,%u,0,0,0,[\n]).\n",
698: sActColor, x - p, y - p, x + p, y + p, uActNr);
699: uActNr++;
700: break;
701: /*}}} */
702: case 5:
703: /* circle */
704: fprintf(gpoutfile, "oval('%s',%.1f,%.1f,%.1f,%.1f,2,1,1,%u,0,0,0,[\n]).\n",
705: sActColor, x - p, y - p, x + p, y + p, uActNr);
706: uActNr++;
707: break;
708: /*}}} */
709: case 6:
710: /* filled circle */
711: fprintf(gpoutfile, "oval('%s',%.1f,%.1f,%.1f,%.1f,1,1,1,%u,0,0,0,[\n]).\n",
712: sActColor, x - p, y - p, x + p, y + p, uActNr);
713: uActNr++;
714: break;
715: /*}}} */
716: case 7:
717: /* triangle up */
718: fprintf(gpoutfile,
719: "polygon('%s',4,[\n%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f],0,1,1,0,%u,0,0,0,0,0,[\n]).\n",
720: sActColor, x, y - p, x + p, y + 0.75 * p, x - p, y + 0.75 * p, x, y - p, uActNr);
721: uActNr++;
722: break;
723: /*}}} */
724: case 8:
725: /* filled triangle up */
726: fprintf(gpoutfile,
727: "polygon('%s',4,[\n%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f],1,1,1,0,%u,0,0,0,0,0,[\n]).\n",
728: sActColor, x, y - p, x + p, y + 0.75 * p, x - p, y + 0.75 * p, x, y - p, uActNr);
729: uActNr++;
730: break;
731: /*}}} */
732: case 9:
733: /* triangle down */
734: fprintf(gpoutfile,
735: "polygon('%s',4,[\n%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f],0,1,1,0,%u,0,0,0,0,0,[\n]).\n",
736: sActColor, x, y + p, x - p, y - 0.75 * p, x + p, y - 0.75 * p, x, y + p, uActNr);
737: uActNr++;
738: break;
739: /*}}} */
740: case 10:
741: /* filled triangle down */
742: fprintf(gpoutfile,
743: "polygon('%s',4,[\n%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f],1,1,1,0,%u,0,0,0,0,0,[\n]).\n",
744: sActColor, x, y + p, x - p, y - 0.75 * p, x + p, y - 0.75 * p, x, y + p, uActNr);
745: uActNr++;
746: break;
747: /*}}} */
748: case 11:
749: /* diamond */
750: fprintf(gpoutfile,
751: "polygon('%s',5,[\n%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f],0,1,1,0,%u,0,0,0,0,0,[\n]).\n",
752: sActColor, x, y + p, x + p, y, x, y - p, x - p, y, x, y + p, uActNr);
753: uActNr++;
754: break;
755: /*}}} */
756: case 12:
757: /* filled diamond */
758: fprintf(gpoutfile,
759: "polygon('%s',5,[\n%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f],1,1,1,0,%u,0,0,0,0,0,[\n]).\n",
760: sActColor, x, y + p, x + p, y, x, y - p, x - p, y, x, y + p, uActNr);
761: uActNr++;
762: break;
763: /*}}} */
764: case 13:
765: /* pentagon */
766: fprintf(gpoutfile,
767: "polygon('%s',6,[\n%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f],0,1,1,0,%u,0,0,0,0,0,[\n]).\n",
768: sActColor, x, y - p, x + p, y - p / 4, x + 0.625 * p, y + p, x - 0.625 * p, y + p,
769: x - p, y - p / 4, x, y - p, uActNr);
770: uActNr++;
771: break;
772: /*}}} */
773: case 14:
774: /* filled pentagon */
775: fprintf(gpoutfile,
776: "polygon('%s',6,[\n%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f],1,1,1,0,%u,0,0,0,0,0,[\n]).\n",
777: sActColor, x, y - p, x + p, y - p / 4, x + 0.625 * p, y + p, x - 0.625 * p, y + p,
778: x - p, y - p / 4, x, y - p, uActNr);
779: uActNr++;
780: break;
781: /*}}} */
782: case 15:
783: /* circle1 */
784: fprintf(gpoutfile, "group([\n");
785: fprintf(gpoutfile, "oval('%s',%.1f,%.1f,%.1f,%.1f,2,1,1,%u,0,0,0,[\n]).\n",
786: sActColor, x - p, y - p, x + p, y + p, uActNr++);
787: fprintf(gpoutfile,
788: "arc('%s',1,1,1,0,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,0,%.1f,%.1f,4480,2560,%u,0,0,8,3,0,[\n]).\n",
789: sActColor, x - p, y - p, x, y, x + p * 0.342, y - p * 0.94, x - p * 0.342, y - p *
790: 0.94, 2 * p, 2 * p, uActNr++);
791: uActNr += 2;
792: fprintf(gpoutfile, "],\n%u,0,[\n]).\n", uActNr++);
793: break;
794: /*}}} */
795: case 16:
796: /* circle2 */
797: fprintf(gpoutfile, "group([\n");
798: fprintf(gpoutfile, "oval('%s',%.1f,%.1f,%.1f,%.1f,2,1,1,%u,0,0,0,[\n]).\n",
799: sActColor, x - p, y - p, x + p, y + p, uActNr++);
800: fprintf(gpoutfile,
801: "arc('%s',1,1,1,0,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,0,%.1f,%.1f,0,5760,%u,0,0,8,3,0,[\n]).\n",
802: sActColor, x - p, y - p, x, y, x + p, y, x, y - p, 2 * p, 2 * p, uActNr++);
803: uActNr += 2;
804: fprintf(gpoutfile, "],\n%u,0,[\n]).\n", uActNr++);
805: break;
806: /*}}} */
807: case 17:
808: /* circle3 */
809: fprintf(gpoutfile, "group([\n");
810: fprintf(gpoutfile, "oval('%s',%.1f,%.1f,%.1f,%.1f,2,1,1,%u,0,0,0,[\n]).\n",
811: sActColor, x - p, y - p, x + p, y + p, uActNr++);
812: fprintf(gpoutfile,
813: "arc('%s',1,1,1,0,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,0,%.1f,%.1f,5760,5760,%u,0,0,8,3,0,[\n]).\n",
814: sActColor, x - p, y - p, x, y, x, y - p, x - p, y, 2 * p, 2 * p, uActNr++);
815: uActNr += 2;
816: fprintf(gpoutfile, "],\n%u,0,[\n]).\n", uActNr++);
817: break;
818: /*}}} */
819: case 18:
820: /* circle4 */
821: fprintf(gpoutfile, "group([\n");
822: fprintf(gpoutfile, "oval('%s',%.1f,%.1f,%.1f,%.1f,2,1,1,%u,0,0,0,[\n]).\n",
823: sActColor, x - p, y - p, x + p, y + p, uActNr++);
824: fprintf(gpoutfile,
825: "arc('%s',1,1,1,0,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,0,%.1f,%.1f,0,11520,%u,0,0,8,3,0,[\n]).\n",
826: sActColor, x - p, y - p, x, y, x + p, y, x - p, y, 2 * p, 2 * p, uActNr++);
827: uActNr += 2;
828: fprintf(gpoutfile, "],\n%u,0,[\n]).\n", uActNr++);
829: break;
830: /*}}} */
831: case 19:
832: /* circle5 */
833: fprintf(gpoutfile, "group([\n");
834: fprintf(gpoutfile, "oval('%s',%.1f,%.1f,%.1f,%.1f,2,1,1,%u,0,0,0,[\n]).\n",
835: sActColor, x - p, y - p, x + p, y + p, uActNr++);
836: fprintf(gpoutfile,
837: "arc('%s',1,1,1,0,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,0,%.1f,%.1f,11520,5760,%u,0,0,8,3,0,[\n]).\n",
838: sActColor, x - p, y - p, x, y, x - p, y, x, y + p, 2 * p, 2 * p, uActNr++);
839: uActNr += 2;
840: fprintf(gpoutfile, "],\n%u,0,[\n]).\n", uActNr++);
841: break;
842: /*}}} */
843: case 20:
844: /* circle6 */
845: fprintf(gpoutfile, "group([\n");
846: fprintf(gpoutfile, "oval('%s',%.1f,%.1f,%.1f,%.1f,2,1,1,%u,0,0,0,[\n]).\n",
847: sActColor, x - p, y - p, x + p, y + p, uActNr++);
848: fprintf(gpoutfile,
849: "arc('%s',1,1,1,0,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,0,%.1f,%.1f,0,5760,%u,0,0,8,3,0,[\n]).\n",
850: sActColor, x - p, y - p, x, y, x + p, y, x, y - p, 2 * p, 2 * p, uActNr++);
851: fprintf(gpoutfile,
852: "arc('%s',1,1,1,0,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,0,%.1f,%.1f,11520,5760,%u,0,0,8,3,0,[\n]).\n",
853: sActColor, x - p, y - p, x, y, x - p, y, x, y + p, 2 * p, 2 * p, uActNr++);
854: uActNr += 3;
855: fprintf(gpoutfile, "],\n%u,0,[\n]).\n", uActNr++);
856: break;
857: /*}}} */
858: case 21:
859: /* circle7 */
860: fprintf(gpoutfile, "group([\n");
861: fprintf(gpoutfile, "oval('%s',%.1f,%.1f,%.1f,%.1f,2,1,1,%u,0,0,0,[\n]).\n",
862: sActColor, x - p, y - p, x + p, y + p, uActNr++);
863: fprintf(gpoutfile,
864: "arc('%s',1,1,1,0,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,0,%.1f,%.1f,5760,11520,%u,0,0,8,3,0,[\n]).\n",
865: sActColor, x - p, y - p, x, y, x, y - p, x, y + p, 2 * p, 2 * p, uActNr++);
866: uActNr += 2;
867: fprintf(gpoutfile, "],\n%u,0,[\n]).\n", uActNr++);
868: break;
869: /*}}} */
870: case 22:
871: /* circle8 */
872: fprintf(gpoutfile, "group([\n");
873: fprintf(gpoutfile, "oval('%s',%.1f,%.1f,%.1f,%.1f,2,1,1,%u,0,0,0,[\n]).\n",
874: sActColor, x - p, y - p, x + p, y + p, uActNr++);
875: fprintf(gpoutfile,
876: "arc('%s',1,1,1,0,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,0,%.1f,%.1f,0,17280,%u,0,0,8,3,0,[\n]).\n",
877: sActColor, x - p, y - p, x, y, x + p, y, x, y + p, 2 * p, 2 * p, uActNr++);
878: uActNr += 2;
879: fprintf(gpoutfile, "],\n%u,0,[\n]).\n", uActNr++);
880: break;
881: /*}}} */
882: case 23:
883: /* circle9 */
884: fprintf(gpoutfile, "group([\n");
885: fprintf(gpoutfile, "oval('%s',%.1f,%.1f,%.1f,%.1f,2,1,1,%u,0,0,0,[\n]).\n",
886: sActColor, x - p, y - p, x + p, y + p, uActNr++);
887: fprintf(gpoutfile,
888: "arc('%s',1,1,1,0,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,0,%.1f,%.1f,17280,5760,%u,0,0,8,3,0,[\n]).\n",
889: sActColor, x - p, y - p, x, y, x, y + p, x + p, y, 2 * p, 2 * p, uActNr++);
890: uActNr += 2;
891: fprintf(gpoutfile, "],\n%u,0,[\n]).\n", uActNr++);
892: break;
893: /*}}} */
894: case 24:
895: /* circle10 */
896: fprintf(gpoutfile, "group([\n");
897: fprintf(gpoutfile, "oval('%s',%.1f,%.1f,%.1f,%.1f,2,1,1,%u,0,0,0,[\n]).\n",
898: sActColor, x - p, y - p, x + p, y + p, uActNr++);
899: fprintf(gpoutfile,
900: "arc('%s',1,1,1,0,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,0,%.1f,%.1f,17280,11520,%u,0,0,8,3,0,[\n]).\n",
901: sActColor, x - p, y - p, x, y, x, y + p, x, y - p, 2 * p, 2 * p, uActNr++);
902: uActNr += 2;
903: fprintf(gpoutfile, "],\n%u,0,[\n]).\n", uActNr++);
904: break;
905: /*}}} */
906: case 25:
907: /* circle11 */
908: fprintf(gpoutfile, "group([\n");
909: fprintf(gpoutfile, "oval('%s',%.1f,%.1f,%.1f,%.1f,2,1,1,%u,0,0,0,[\n]).\n",
910: sActColor, x - p, y - p, x + p, y + p, uActNr++);
911: fprintf(gpoutfile,
912: "arc('%s',1,1,1,0,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,0,%.1f,%.1f,5760,5760,%u,0,0,8,3,0,[\n]).\n",
913: sActColor, x - p, y - p, x, y, x, y - p, x - p, y, 2 * p, 2 * p, uActNr++);
914: fprintf(gpoutfile,
915: "arc('%s',1,1,1,0,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,0,%.1f,%.1f,17280,5760,%u,0,0,8,3,0,[\n]).\n",
916: sActColor, x - p, y - p, x, y, x, y + p, x + p, y, 2 * p, 2 * p, uActNr++);
917: uActNr += 3;
918: fprintf(gpoutfile, "],\n%u,0,[\n]).\n", uActNr++);
919: break;
920: /*}}} */
921: case 26:
922: /* circle12 */
923: fprintf(gpoutfile, "group([\n");
924: fprintf(gpoutfile, "oval('%s',%.1f,%.1f,%.1f,%.1f,2,1,1,%u,0,0,0,[\n]).\n",
925: sActColor, x - p, y - p, x + p, y + p, uActNr++);
926: fprintf(gpoutfile,
927: "arc('%s',1,1,1,0,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,0,%.1f,%.1f,17280,17280,%u,0,0,8,3,0,[\n]).\n",
928: sActColor, x - p, y - p, x, y, x, y + p, x - p, y, 2 * p, 2 * p, uActNr++);
929: uActNr += 2;
930: fprintf(gpoutfile, "],\n%u,0,[\n]).\n", uActNr++);
931: break;
932: /*}}} */
933: case 27:
934: /* circle13 */
935: fprintf(gpoutfile, "group([\n");
936: fprintf(gpoutfile, "oval('%s',%.1f,%.1f,%.1f,%.1f,2,1,1,%u,0,0,0,[\n]).\n",
937: sActColor, x - p, y - p, x + p, y + p, uActNr++);
938: fprintf(gpoutfile,
939: "arc('%s',1,1,1,0,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,0,%.1f,%.1f,11520,11520,%u,0,0,8,3,0,[\n]).\n",
940: sActColor, x - p, y - p, x, y, x - p, y, x + p, y, 2 * p, 2 * p, uActNr++);
941: uActNr += 2;
942: fprintf(gpoutfile, "],\n%u,0,[\n]).\n", uActNr++);
943: break;
944: /*}}} */
945: case 28:
946: /* circle14 */
947: fprintf(gpoutfile, "group([\n");
948: fprintf(gpoutfile, "oval('%s',%.1f,%.1f,%.1f,%.1f,2,1,1,%u,0,0,0,[\n]).\n",
949: sActColor, x - p, y - p, x + p, y + p, uActNr++);
950: fprintf(gpoutfile,
951: "arc('%s',1,1,1,0,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,0,%.1f,%.1f,11520,17280,%u,0,0,8,3,0,[\n]).\n",
952: sActColor, x - p, y - p, x, y, x - p, y, x, y - p, 2 * p, 2 * p, uActNr++);
953: uActNr += 2;
954: fprintf(gpoutfile, "],\n%u,0,[\n]).\n", uActNr++);
955: break;
956: /*}}} */
957: case 29:
958: /* circle15 */
959: fprintf(gpoutfile, "group([\n");
960: fprintf(gpoutfile, "oval('%s',%.1f,%.1f,%.1f,%.1f,2,1,1,%u,0,0,0,[\n]).\n",
961: sActColor, x - p, y - p, x + p, y + p, uActNr++);
962: fprintf(gpoutfile,
963: "arc('%s',1,1,1,0,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,0,%.1f,%.1f,5760,17280,%u,0,0,8,3,0,[\n]).\n",
964: sActColor, x - p, y - p, x, y, x, y - p, x + p, y, 2 * p, 2 * p, uActNr++);
965: uActNr += 2;
966: fprintf(gpoutfile, "],\n%u,0,[\n]).\n", uActNr++);
967: break;
968: /*}}} */
969: case 30:
970: /* circle16 */
971: fprintf(gpoutfile, "oval('%s',%.1f,%.1f,%.1f,%.1f,1,1,1,%u,0,0,0,[\n]).\n",
972: sActColor, x - p, y - p, x + p, y + p, uActNr);
973: uActNr++;
974: break;
975: /*}}} */
976: case 31:
977: /* box1 */
978: fprintf(gpoutfile, "group([\n");
979: fprintf(gpoutfile, "box('%s',%.1f,%.1f,%.1f,%.1f,2,1,1,%u,0,0,0,[\n]).\n",
980: sActColor, x - p, y - p, x + p, y + p, uActNr++);
981: fprintf(gpoutfile, "box('%s',%.1f,%.1f,%.1f,%.1f,1,1,1,%u,0,0,0,[\n]).\n",
982: sActColor, x - p / 4, y - p, x + p / 4, y, uActNr++);
983: uActNr += 2;
984: fprintf(gpoutfile, "],\n%u,0,[\n]).\n", uActNr++);
985: break;
986: /*}}} */
987: case 32:
988: /* box2 */
989: fprintf(gpoutfile, "group([\n");
990: fprintf(gpoutfile, "box('%s',%.1f,%.1f,%.1f,%.1f,2,1,1,%u,0,0,0,[\n]).\n",
991: sActColor, x - p, y - p, x + p, y + p, uActNr++);
992: fprintf(gpoutfile, "box('%s',%.1f,%.1f,%.1f,%.1f,1,1,1,%u,0,0,0,[\n]).\n",
993: sActColor, x, y - p, x + p, y, uActNr++);
994: uActNr += 2;
995: fprintf(gpoutfile, "],\n%u,0,[\n]).\n", uActNr++);
996: break;
997: /*}}} */
998: case 33:
999: /* box3 */
1000: fprintf(gpoutfile, "group([\n");
1001: fprintf(gpoutfile, "box('%s',%.1f,%.1f,%.1f,%.1f,2,1,1,%u,0,0,0,[\n]).\n",
1002: sActColor, x - p, y - p, x + p, y + p, uActNr++);
1003: fprintf(gpoutfile, "box('%s',%.1f,%.1f,%.1f,%.1f,1,1,1,%u,0,0,0,[\n]).\n",
1004: sActColor, x - p, y - p, x, y, uActNr++);
1005: uActNr += 2;
1006: fprintf(gpoutfile, "],\n%u,0,[\n]).\n", uActNr++);
1007: break;
1008: /*}}} */
1009: case 34:
1010: /* box4 */
1011: fprintf(gpoutfile, "group([\n");
1012: fprintf(gpoutfile, "box('%s',%.1f,%.1f,%.1f,%.1f,2,1,1,%u,0,0,0,[\n]).\n",
1013: sActColor, x - p, y - p, x + p, y + p, uActNr++);
1014: fprintf(gpoutfile, "box('%s',%.1f,%.1f,%.1f,%.1f,1,1,1,%u,0,0,0,[\n]).\n",
1015: sActColor, x - p, y - p, x + p, y, uActNr++);
1016: uActNr += 2;
1017: fprintf(gpoutfile, "],\n%u,0,[\n]).\n", uActNr++);
1018: break;
1019: /*}}} */
1020: case 35:
1021: /* box5 */
1022: fprintf(gpoutfile, "group([\n");
1023: fprintf(gpoutfile, "box('%s',%.1f,%.1f,%.1f,%.1f,2,1,1,%u,0,0,0,[\n]).\n",
1024: sActColor, x - p, y - p, x + p, y + p, uActNr++);
1025: fprintf(gpoutfile, "box('%s',%.1f,%.1f,%.1f,%.1f,1,1,1,%u,0,0,0,[\n]).\n",
1026: sActColor, x - p, y, x, y + p, uActNr++);
1027: uActNr += 2;
1028: fprintf(gpoutfile, "],\n%u,0,[\n]).\n", uActNr++);
1029: break;
1030: /*}}} */
1031: case 36:
1032: /* box6 */
1033: fprintf(gpoutfile, "group([\n");
1034: fprintf(gpoutfile, "box('%s',%.1f,%.1f,%.1f,%.1f,2,1,1,%u,0,0,0,[\n]).\n",
1035: sActColor, x - p, y - p, x + p, y + p, uActNr++);
1036: fprintf(gpoutfile, "box('%s',%.1f,%.1f,%.1f,%.1f,1,1,1,%u,0,0,0,[\n]).\n",
1037: sActColor, x, y - p, x + p, y, uActNr++);
1038: fprintf(gpoutfile, "box('%s',%.1f,%.1f,%.1f,%.1f,1,1,1,%u,0,0,0,[\n]).\n",
1039: sActColor, x - p, y, x, y + p, uActNr++);
1040: uActNr += 3;
1041: fprintf(gpoutfile, "],\n%u,0,[\n]).\n", uActNr++);
1042: break;
1043: /*}}} */
1044: case 37:
1045: /* box7 */
1046: fprintf(gpoutfile, "group([\n");
1047: fprintf(gpoutfile, "box('%s',%.1f,%.1f,%.1f,%.1f,2,1,1,%u,0,0,0,[\n]).\n",
1048: sActColor, x - p, y - p, x + p, y + p, uActNr++);
1049: fprintf(gpoutfile, "box('%s',%.1f,%.1f,%.1f,%.1f,1,1,1,%u,0,0,0,[\n]).\n",
1050: sActColor, x - p, y - p, x, y + p, uActNr++);
1051: uActNr += 2;
1052: fprintf(gpoutfile, "],\n%u,0,[\n]).\n", uActNr++);
1053: break;
1054: /*}}} */
1055: case 38:
1056: /* box8 */
1057: fprintf(gpoutfile, "group([\n");
1058: fprintf(gpoutfile, "box('%s',%.1f,%.1f,%.1f,%.1f,2,1,1,%u,0,0,0,[\n]).\n",
1059: sActColor, x - p, y - p, x + p, y + p, uActNr++);
1060: fprintf(gpoutfile, "box('%s',%.1f,%.1f,%.1f,%.1f,1,1,1,%u,0,0,0,[\n]).\n",
1061: sActColor, x - p, y - p, x + p, y, uActNr++);
1062: fprintf(gpoutfile, "box('%s',%.1f,%.1f,%.1f,%.1f,1,1,1,%u,0,0,0,[\n]).\n",
1063: sActColor, x - p, y, x, y + p, uActNr++);
1064: uActNr += 3;
1065: fprintf(gpoutfile, "],\n%u,0,[\n]).\n", uActNr++);
1066: break;
1067: /*}}} */
1068: case 39:
1069: /* box9 */
1070: fprintf(gpoutfile, "group([\n");
1071: fprintf(gpoutfile, "box('%s',%.1f,%.1f,%.1f,%.1f,2,1,1,%u,0,0,0,[\n]).\n",
1072: sActColor, x - p, y - p, x + p, y + p, uActNr++);
1073: fprintf(gpoutfile, "box('%s',%.1f,%.1f,%.1f,%.1f,1,1,1,%u,0,0,0,[\n]).\n",
1074: sActColor, x, y, x + p, y + p, uActNr++);
1075: uActNr += 2;
1076: fprintf(gpoutfile, "],\n%u,0,[\n]).\n", uActNr++);
1077: break;
1078: /*}}} */
1079: case 40:
1080: /* box10 */
1081: fprintf(gpoutfile, "group([\n");
1082: fprintf(gpoutfile, "box('%s',%.1f,%.1f,%.1f,%.1f,2,1,1,%u,0,0,0,[\n]).\n",
1083: sActColor, x - p, y - p, x + p, y + p, uActNr++);
1084: fprintf(gpoutfile, "box('%s',%.1f,%.1f,%.1f,%.1f,1,1,1,%u,0,0,0,[\n]).\n",
1085: sActColor, x, y - p, x + p, y + p, uActNr++);
1086: uActNr += 2;
1087: fprintf(gpoutfile, "],\n%u,0,[\n]).\n", uActNr++);
1088: break;
1089: /*}}} */
1090: case 41:
1091: /* box11 */
1092: fprintf(gpoutfile, "group([\n");
1093: fprintf(gpoutfile, "box('%s',%.1f,%.1f,%.1f,%.1f,2,1,1,%u,0,0,0,[\n]).\n",
1094: sActColor, x - p, y - p, x + p, y + p, uActNr++);
1095: fprintf(gpoutfile, "box('%s',%.1f,%.1f,%.1f,%.1f,1,1,1,%u,0,0,0,[\n]).\n",
1096: sActColor, x - p, y - p, x, y, uActNr++);
1097: fprintf(gpoutfile, "box('%s',%.1f,%.1f,%.1f,%.1f,1,1,1,%u,0,0,0,[\n]).\n",
1098: sActColor, x, y, x + p, y + p, uActNr++);
1099: uActNr += 3;
1100: fprintf(gpoutfile, "],\n%u,0,[\n]).\n", uActNr++);
1101: break;
1102: /*}}} */
1103: case 42:
1104: /* box12 */
1105: fprintf(gpoutfile, "group([\n");
1106: fprintf(gpoutfile, "box('%s',%.1f,%.1f,%.1f,%.1f,2,1,1,%u,0,0,0,[\n]).\n",
1107: sActColor, x - p, y - p, x + p, y + p, uActNr++);
1108: fprintf(gpoutfile, "box('%s',%.1f,%.1f,%.1f,%.1f,1,1,1,%u,0,0,0,[\n]).\n",
1109: sActColor, x - p, y - p, x + p, y, uActNr++);
1110: fprintf(gpoutfile, "box('%s',%.1f,%.1f,%.1f,%.1f,1,1,1,%u,0,0,0,[\n]).\n",
1111: sActColor, x, y, x + p, y + p, uActNr++);
1112: uActNr += 3;
1113: fprintf(gpoutfile, "],\n%u,0,[\n]).\n", uActNr++);
1114: break;
1115: /*}}} */
1116: case 43:
1117: /* box13 */
1118: fprintf(gpoutfile, "group([\n");
1119: fprintf(gpoutfile, "box('%s',%.1f,%.1f,%.1f,%.1f,2,1,1,%u,0,0,0,[\n]).\n",
1120: sActColor, x - p, y - p, x + p, y + p, uActNr++);
1121: fprintf(gpoutfile, "box('%s',%.1f,%.1f,%.1f,%.1f,1,1,1,%u,0,0,0,[\n]).\n",
1122: sActColor, x - p, y, x + p, y + p, uActNr++);
1123: uActNr += 2;
1124: fprintf(gpoutfile, "],\n%u,0,[\n]).\n", uActNr++);
1125: break;
1126: /*}}} */
1127: case 44:
1128: /* box14 */
1129: fprintf(gpoutfile, "group([\n");
1130: fprintf(gpoutfile, "box('%s',%.1f,%.1f,%.1f,%.1f,2,1,1,%u,0,0,0,[\n]).\n",
1131: sActColor, x - p, y - p, x + p, y + p, uActNr++);
1132: fprintf(gpoutfile, "box('%s',%.1f,%.1f,%.1f,%.1f,1,1,1,%u,0,0,0,[\n]).\n",
1133: sActColor, x, y - p, x + p, y, uActNr++);
1134: fprintf(gpoutfile, "box('%s',%.1f,%.1f,%.1f,%.1f,1,1,1,%u,0,0,0,[\n]).\n",
1135: sActColor, x - p, y, x + p, y + p, uActNr++);
1136: uActNr += 3;
1137: fprintf(gpoutfile, "],\n%u,0,[\n]).\n", uActNr++);
1138: break;
1139: /*}}} */
1140: case 45:
1141: /* box15 */
1142: fprintf(gpoutfile, "group([\n");
1143: fprintf(gpoutfile, "box('%s',%.1f,%.1f,%.1f,%.1f,2,1,1,%u,0,0,0,[\n]).\n",
1144: sActColor, x - p, y - p, x + p, y + p, uActNr++);
1145: fprintf(gpoutfile, "box('%s',%.1f,%.1f,%.1f,%.1f,1,1,1,%u,0,0,0,[\n]).\n",
1146: sActColor, x - p, y - p, x, y, uActNr++);
1147: fprintf(gpoutfile, "box('%s',%.1f,%.1f,%.1f,%.1f,1,1,1,%u,0,0,0,[\n]).\n",
1148: sActColor, x - p, y, x + p, y + p, uActNr++);
1149: uActNr += 3;
1150: fprintf(gpoutfile, "],\n%u,0,[\n]).\n", uActNr++);
1151: break;
1152: /*}}} */
1153: case 46:
1154: /* box16 */
1155: fprintf(gpoutfile, "box('%s',%.1f,%.1f,%.1f,%.1f,1,1,1,%u,0,0,0,[\n]).\n",
1156: sActColor, x - p, y - p, x + p, y + p, uActNr);
1157: uActNr++;
1158: break;
1159: /*}}} */
1160: case 47:
1161: /* diamond1 */
1162: fprintf(gpoutfile, "group([\n");
1163: fprintf(gpoutfile,
1164: "polygon('%s',5,[\n%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f],0,1,1,0,%u,0,0,0,0,0,[\n]).\n",
1165: sActColor, x, y + p, x + p, y, x, y - p, x - p, y, x, y + p, uActNr);
1166: fprintf(gpoutfile,
1167: "polygon('%s',5,[\n%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f],1,1,1,0,%u,0,0,0,0,0,[\n]).\n",
1168: sActColor, x - 0.625 * p, y - 0.375 * p, x - 0.375 * p, y - 0.625 * p, x + p / 8,
1169: y - p / 8, x - p / 8, y + p / 8, x - 0.625 * p, y - 0.375 * p, uActNr);
1170: fprintf(gpoutfile, "],\n%u,0,[\n]).\n", uActNr++);
1171: uActNr += 2;
1172: break;
1173: /*}}} */
1174: case 48:
1175: /* diamond2 */
1176: fprintf(gpoutfile, "group([\n");
1177: fprintf(gpoutfile,
1178: "polygon('%s',5,[\n%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f],0,1,1,0,%u,0,0,0,0,0,[\n]).\n",
1179: sActColor, x, y + p, x + p, y, x, y - p, x - p, y, x, y + p, uActNr);
1180: fprintf(gpoutfile,
1181: "polygon('%s',5,[\n%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f],1,1,1,0,%u,0,0,0,0,0,[\n]).\n",
1182: sActColor, x - p / 2, y - p / 2, x, y - p, x + p / 2, y - p / 2, x, y, x - p / 2,
1183: y - p / 2, uActNr);
1184: uActNr += 2;
1185: fprintf(gpoutfile, "],\n%u,0,[\n]).\n", uActNr++);
1186: break;
1187: /*}}} */
1188: case 49:
1189: /* diamond3 */
1190: fprintf(gpoutfile, "group([\n");
1191: fprintf(gpoutfile,
1192: "polygon('%s',5,[\n%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f],0,1,1,0,%u,0,0,0,0,0,[\n]).\n",
1193: sActColor, x, y + p, x + p, y, x, y - p, x - p, y, x, y + p, uActNr);
1194: fprintf(gpoutfile,
1195: "polygon('%s',5,[\n%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f],1,1,1,0,%u,0,0,0,0,0,[\n]).\n",
1196: sActColor, x - p, y, x - p / 2, y - p / 2, x, y, x - p / 2, y + p / 2, x - p, y, uActNr);
1197: uActNr += 2;
1198: fprintf(gpoutfile, "],\n%u,0,[\n]).\n", uActNr++);
1199: break;
1200: /*}}} */
1201: case 50:
1202: /* diamond4 */
1203: fprintf(gpoutfile, "group([\n");
1204: fprintf(gpoutfile,
1205: "polygon('%s',5,[\n%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f],0,1,1,0,%u,0,0,0,0,0,[\n]).\n",
1206: sActColor, x, y + p, x + p, y, x, y - p, x - p, y, x, y + p, uActNr);
1207: fprintf(gpoutfile,
1208: "polygon('%s',5,[\n%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f],1,1,1,0,%u,0,0,0,0,0,[\n]).\n",
1209: sActColor, x - p, y, x, y - p, x + p / 2, y - p / 2, x - p / 2, y + p / 2, x - p,
1210: y, uActNr);
1211: uActNr += 2;
1212: fprintf(gpoutfile, "],\n%u,0,[\n]).\n", uActNr++);
1213: break;
1214: /*}}} */
1215: case 51:
1216: /* diamond5 */
1217: fprintf(gpoutfile, "group([\n");
1218: fprintf(gpoutfile,
1219: "polygon('%s',5,[\n%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f],0,1,1,0,%u,0,0,0,0,0,[\n]).\n",
1220: sActColor, x, y + p, x + p, y, x, y - p, x - p, y, x, y + p, uActNr);
1221: fprintf(gpoutfile,
1222: "polygon('%s',5,[\n%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f],1,1,1,0,%u,0,0,0,0,0,[\n]).\n",
1223: sActColor, x - p / 2, y + p / 2, x, y, x + p / 2, y + p / 2, x, y + p, x - p / 2,
1224: y + p / 2, uActNr);
1225: uActNr += 2;
1226: fprintf(gpoutfile, "],\n%u,0,[\n]).\n", uActNr++);
1227: break;
1228: /*}}} */
1229: case 52:
1230: /* diamond6 */
1231: fprintf(gpoutfile, "group([\n");
1232: fprintf(gpoutfile,
1233: "polygon('%s',5,[\n%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f],0,1,1,0,%u,0,0,0,0,0,[\n]).\n",
1234: sActColor, x, y + p, x + p, y, x, y - p, x - p, y, x, y + p, uActNr);
1235: fprintf(gpoutfile,
1236: "polygon('%s',5,[\n%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f],1,1,1,0,%u,0,0,0,0,0,[\n]).\n",
1237: sActColor, x - p / 2, y - p / 2, x, y - p, x + p / 2, y - p / 2, x, y, x - p / 2,
1238: y - p / 2, uActNr);
1239: fprintf(gpoutfile,
1240: "polygon('%s',5,[\n%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f],1,1,1,0,%u,0,0,0,0,0,[\n]).\n",
1241: sActColor, x - p / 2, y + p / 2, x, y, x + p / 2, y + p / 2, x, y + p, x - p / 2,
1242: y + p / 2, uActNr);
1243: uActNr += 3;
1244: fprintf(gpoutfile, "],\n%u,0,[\n]).\n", uActNr++);
1245: break;
1246: /*}}} */
1247: case 53:
1248: /* diamond7 */
1249: fprintf(gpoutfile, "group([\n");
1250: fprintf(gpoutfile,
1251: "polygon('%s',5,[\n%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f],0,1,1,0,%u,0,0,0,0,0,[\n]).\n",
1252: sActColor, x, y + p, x + p, y, x, y - p, x - p, y, x, y + p, uActNr);
1253: fprintf(gpoutfile,
1254: "polygon('%s',5,[\n%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f],1,1,1,0,%u,0,0,0,0,0,[\n]).\n",
1255: sActColor, x - p, y, x - p / 2, y - p / 2, x + p / 2, y + p / 2, x, y + p, x - p,
1256: y, uActNr);
1257: uActNr += 2;
1258: fprintf(gpoutfile, "],\n%u,0,[\n]).\n", uActNr++);
1259: break;
1260: /*}}} */
1261: case 54:
1262: /* diamond8 */
1263: fprintf(gpoutfile, "group([\n");
1264: fprintf(gpoutfile,
1265: "polygon('%s',5,[\n%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f],0,1,1,0,%u,0,0,0,0,0,[\n]).\n",
1266: sActColor, x, y + p, x + p, y, x, y - p, x - p, y, x, y + p, uActNr);
1267: fprintf(gpoutfile,
1268: "polygon('%s',7,[\n%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f],1,1,1,0,%u,0,0,0,0,0,[\n]).\n",
1269: sActColor, x - p, y, x, y - p, x + p / 2, y - p / 2, x, y, x + p / 2, y + p / 2,
1270: x, y + p, x - p, y, uActNr);
1271: uActNr += 2;
1272: fprintf(gpoutfile, "],\n%u,0,[\n]).\n", uActNr++);
1273: break;
1274: /*}}} */
1275: case 55:
1276: /* diamond9 */
1277: fprintf(gpoutfile, "group([\n");
1278: fprintf(gpoutfile,
1279: "polygon('%s',5,[\n%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f],0,1,1,0,%u,0,0,0,0,0,[\n]).\n",
1280: sActColor, x, y + p, x + p, y, x, y - p, x - p, y, x, y + p, uActNr);
1281: fprintf(gpoutfile,
1282: "polygon('%s',5,[\n%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f],1,1,1,0,%u,0,0,0,0,0,[\n]).\n",
1283: sActColor, x, y, x + p / 2, y - p / 2, x + p, y, x + p / 2, y + p / 2, x, y, uActNr);
1284: uActNr += 2;
1285: fprintf(gpoutfile, "],\n%u,0,[\n]).\n", uActNr++);
1286: break;
1287: /*}}} */
1288: case 56:
1289: /* diamond10 */
1290: fprintf(gpoutfile, "group([\n");
1291: fprintf(gpoutfile,
1292: "polygon('%s',5,[\n%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f],0,1,1,0,%u,0,0,0,0,0,[\n]).\n",
1293: sActColor, x, y + p, x + p, y, x, y - p, x - p, y, x, y + p, uActNr);
1294: fprintf(gpoutfile,
1295: "polygon('%s',5,[\n%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f],1,1,1,0,%u,0,0,0,0,0,[\n]).\n",
1296: sActColor, x - p / 2, y - p / 2, x, y - p, x + p, y, x + p / 2, y + p / 2, x - p /
1297: 2, y - p / 2, uActNr);
1298: uActNr += 2;
1299: fprintf(gpoutfile, "],\n%u,0,[\n]).\n", uActNr++);
1300: break;
1301: /*}}} */
1302: case 57:
1303: /* diamond11 */
1304: fprintf(gpoutfile, "group([\n");
1305: fprintf(gpoutfile,
1306: "polygon('%s',5,[\n%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f],0,1,1,0,%u,0,0,0,0,0,[\n]).\n",
1307: sActColor, x, y + p, x + p, y, x, y - p, x - p, y, x, y + p, uActNr);
1308: fprintf(gpoutfile,
1309: "polygon('%s',5,[\n%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f],1,1,1,0,%u,0,0,0,0,0,[\n]).\n",
1310: sActColor, x - p, y, x - p / 2, y - p / 2, x, y, x - p / 2, y + p / 2, x - p, y, uActNr);
1311: fprintf(gpoutfile,
1312: "polygon('%s',5,[\n%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f],1,1,1,0,%u,0,0,0,0,0,[\n]).\n",
1313: sActColor, x, y, x + p / 2, y - p / 2, x + p, y, x + p / 2, y + p / 2, x, y, uActNr);
1314: uActNr += 3;
1315: fprintf(gpoutfile, "],\n%u,0,[\n]).\n", uActNr++);
1316: break;
1317: /*}}} */
1318: case 58:
1319: /* diamond12 */
1320: fprintf(gpoutfile, "group([\n");
1321: fprintf(gpoutfile,
1322: "polygon('%s',5,[\n%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f],0,1,1,0,%u,0,0,0,0,0,[\n]).\n",
1323: sActColor, x, y + p, x + p, y, x, y - p, x - p, y, x, y + p, uActNr);
1324: fprintf(gpoutfile,
1325: "polygon('%s',7,[\n%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f],1,1,1,0,%u,0,0,0,0,0,[\n]).\n",
1326: sActColor, x - p, y, x, y - p, x + p, y, x + p / 2, y + p / 2, x, y, x - p / 2, y
1327: + p / 2, x - p, y, uActNr);
1328: uActNr += 2;
1329: fprintf(gpoutfile, "],\n%u,0,[\n]).\n", uActNr++);
1330: break;
1331: /*}}} */
1332: case 59:
1333: /* diamond13 */
1334: fprintf(gpoutfile, "group([\n");
1335: fprintf(gpoutfile,
1336: "polygon('%s',5,[\n%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f],0,1,1,0,%u,0,0,0,0,0,[\n]).\n",
1337: sActColor, x, y + p, x + p, y, x, y - p, x - p, y, x, y + p, uActNr);
1338: fprintf(gpoutfile,
1339: "polygon('%s',5,[\n%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f],1,1,1,0,%u,0,0,0,0,0,[\n]).\n",
1340: sActColor, x - p / 2, y + p / 2, x + p / 2, y - p / 2, x + p, y, x, y + p, x - p /
1341: 2, y + p / 2, uActNr);
1342: uActNr += 2;
1343: fprintf(gpoutfile, "],\n%u,0,[\n]).\n", uActNr++);
1344: break;
1345: /*}}} */
1346: case 60:
1347: /* diamond14 */
1348: fprintf(gpoutfile, "group([\n");
1349: fprintf(gpoutfile,
1350: "polygon('%s',5,[\n%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f],0,1,1,0,%u,0,0,0,0,0,[\n]).\n",
1351: sActColor, x, y + p, x + p, y, x, y - p, x - p, y, x, y + p, uActNr);
1352: fprintf(gpoutfile,
1353: "polygon('%s',7,[\n%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f],1,1,1,0,%u,0,0,0,0,0,[\n]).\n",
1354: sActColor, x - p / 2, y - p / 2, x, y - p, x + p, y, x, y + p, x - p / 2, y + p /
1355: 2, x, y, x - p / 2, y - p / 2, uActNr);
1356: uActNr += 2;
1357: fprintf(gpoutfile, "],\n%u,0,[\n]).\n", uActNr++);
1358: break;
1359: /*}}} */
1360: case 61:
1361: /* diamond15 */
1362: fprintf(gpoutfile, "group([\n");
1363: fprintf(gpoutfile,
1364: "polygon('%s',5,[\n%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f],0,1,1,0,%u,0,0,0,0,0,[\n]).\n",
1365: sActColor, x, y + p, x + p, y, x, y - p, x - p, y, x, y + p, uActNr);
1366: fprintf(gpoutfile,
1367: "polygon('%s',7,[\n%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f],1,1,1,0,%u,0,0,0,0,0,[\n]).\n",
1368: sActColor, x - p, y, x - p / 2, y - p / 2, x, y, x + p / 2, y - p / 2, x + p, y,
1369: x, y + p, x - p, y, uActNr);
1370: uActNr += 2;
1371: fprintf(gpoutfile, "],\n%u,0,[\n]).\n", uActNr++);
1372: break;
1373: /*}}} */
1374: case 62:
1375: /* diamond16 */
1376: fprintf(gpoutfile,
1377: "polygon('%s',5,[\n%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,%.1f],1,1,1,0,%u,0,0,0,0,0,[\n]).\n",
1378: sActColor, x, y + p, x + p, y, x, y - p, x - p, y, x, y + p, uActNr);
1379: uActNr++;
1380: break;
1381: /*}}} */
1382:
1383: } /* switch */
1384: } /* TGIF_point */
1385:
1386: /*}}} */
1387: /***************************************************************************/
1388: TERM_PUBLIC void TGIF_set_pointsize(size)
1389: double size;
1390: {
1391: uActPointSize = size;
1392: }
1393:
1394: /*}}} */
1395: /***************************************************************************/
1396: TERM_PUBLIC int TGIF_set_font(font) /* Entry font as added by DJL in post.trm */
1397: char *font;
1398: {
1399: char name[32];
1400: int size, sep;
1401:
1402: sep = strcspn(font, ",");
1403: strncpy(name, font, sep);
1404: name[sep] = NUL;
1405: size = uActFontSize;
1406: sscanf(&(font[sep + 1]), "%d", &size);
1407: uActFontSize = size;
1408: return TRUE;
1409: }
1410:
1411: /*}}} */
1412: /***************************************************************************/
1413:
1414: #endif /* TERM_BODY */
1415:
1416: #ifdef TERM_TABLE
1417:
1418: TERM_TABLE_START(tgif_driver)
1419: "tgif",
1420: "TGIF X11 [mode] [x,y] [dashed] [\042font\042 [fontsize]]",
1421: TGIF_XMAX, TGIF_YMAX, TGIF_VCHAR, TGIF_HCHAR,
1422: TGIF_VTIC, TGIF_HTIC, TGIF_options, TGIF_init, TGIF_reset,
1423: TGIF_text, null_scale, TGIF_graphics, TGIF_move, TGIF_vector,
1424: TGIF_linetype, TGIF_put_text, TGIF_text_angle,
1425: TGIF_justify_text, TGIF_point, TGIF_arrow, TGIF_set_font,
1426: TGIF_set_pointsize, TERM_CAN_MULTIPLOT
1427:
1428: TERM_TABLE_END(tgif_driver)
1429: #undef LAST_TERM
1430:
1431: #define LAST_TERM tgif_driver
1432:
1433: #endif /* TERM_TABLE */
1434:
1435: #endif /* TERM_PROTO_ONLY */
1436:
1437: #ifdef TERM_HELP
1438: START_HELP(tgif)
1439: "1 tgif",
1440: "?commands set terminal tgif",
1441: "?set terminal tgif",
1442: "?set term tgif",
1443: "?terminal tgif",
1444: "?term tgif",
1445: "?tgif",
1446: " Tgif is an X11-based drawing tool---it has nothing to do with GIF.",
1447: "",
1448: " The `tgif` driver supports different pointsizes (with `set pointsize`),",
1449: " different label fonts and font sizes (e.g. `set label \"Hallo\" at x,y font",
1450: " \"Helvetica,34\"`) and multiple graphs on the page. The proportions of the",
1451: " axes are not changed.",
1452: "",
1453: " Syntax:",
1454: " set terminal tgif {portrait | landscape} {<[x,y]>}",
1455: " {solid | dashed}",
1456: " {\"<fontname>\"} {<fontsize>}",
1457: "",
1458: " where <[x,y]> specifies the number of graphs in the x and y directions on the",
1459: " page, \"<fontname>\" is the name of a valid PostScript font, and <fontsize>",
1460: " specifies the size of the PostScript font. Defaults are `portrait`, `[1,1]`,",
1461: " `dashed`, `\"Helvetica\"`, and `18`.",
1462: "",
1463: " The `solid` option is usually prefered if lines are colored, as they often",
1464: " are in the editor. Hardcopy will be black-and-white, so `dashed` should be",
1465: " chosen for that.",
1466: "",
1467: " Multiplot is implemented in two different ways.",
1468: "",
1469: " The first multiplot implementation is the standard gnuplot multiplot feature:",
1470: "",
1471: " set terminal tgif",
1472: " set output \"file.obj\"",
1473: " set multiplot",
1474: " set origin x01,y01",
1475: " set size xs,ys",
1476: " plot ...",
1477: " ...",
1478: " set origin x02,y02",
1479: " plot ...",
1480: " set nomultiplot",
1481: "",
1482: " See `set multiplot` for further information.",
1483: "",
1484: " The second version is the [x,y] option for the driver itself. The advantage",
1485: " of this implementation is that everything is scaled and placed automatically",
1486: " without the need for setting origins and sizes; the graphs keep their natural",
1487: " x/y proportions of 3/2 (or whatever is fixed by `set size`).",
1488: "",
1489: " If both multiplot methods are selected, the standard method is chosen and a",
1490: " warning message is given.",
1491: "",
1492: " Examples of single plots (or standard multiplot):",
1493: " set terminal tgif # defaults",
1494: " set terminal tgif \"Times-Roman\" 24",
1495: " set terminal tgif landscape",
1496: " set terminal tgif landscape solid",
1497: "",
1498: " Examples using the built-in multiplot mechanism:",
1499: " set terminal tgif portrait [2,4] # portrait; 2 plots in the x-",
1500: " # and 4 in the y-direction",
1501: " set terminal tgif [1,2] # portrait; 1 plot in the x-",
1502: " # and 2 in the y-direction",
1503: " set terminal tgif landscape [3,3] # landscape; 3 plots in both",
1504: " # directions"
1505: END_HELP(tgif)
1506: #endif
1507: /*{{{}}}*/
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to tgif.trm CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / gnuplot / term