summaryrefslogtreecommitdiffstats
path: root/generic/tkbltGrPSOutput.C
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tkbltGrPSOutput.C')
-rw-r--r--generic/tkbltGrPSOutput.C931
1 files changed, 931 insertions, 0 deletions
diff --git a/generic/tkbltGrPSOutput.C b/generic/tkbltGrPSOutput.C
new file mode 100644
index 0000000..8f02cba
--- /dev/null
+++ b/generic/tkbltGrPSOutput.C
@@ -0,0 +1,931 @@
+/*
+ * Smithsonian Astrophysical Observatory, Cambridge, MA, USA
+ * This code has been modified under the terms listed below and is made
+ * available under the same terms.
+ */
+
+/*
+ * Copyright 1991-2004 George A Howlett.
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining
+ * a copy of this software and associated documentation files (the
+ * "Software"), to deal in the Software without restriction, including
+ * without limitation the rights to use, copy, modify, merge, publish,
+ * distribute, sublicense, and/or sell copies of the Software, and to
+ * permit persons to whom the Software is furnished to do so, subject to
+ * the following conditions:
+ *
+ * The above copyright notice and this permission notice shall be
+ * included in all copies or substantial portions of the Software.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+ * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+ * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+ * NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+ * LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+ * OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+ * WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+ *
+ */
+
+#include <stdlib.h>
+#include <string.h>
+#include <time.h>
+
+#include <cmath>
+
+#include "tk.h"
+
+// copied from tk3d.h
+
+typedef struct TkBorder {
+ Screen *screen; /* Screen on which the border will be used. */
+ Visual *visual; /* Visual for all windows and pixmaps using
+ * the border. */
+ int depth; /* Number of bits per pixel of drawables where
+ * the border will be used. */
+ Colormap colormap; /* Colormap out of which pixels are
+ * allocated. */
+ int resourceRefCount; /* Number of active uses of this color (each
+ * active use corresponds to a call to
+ * Tk_Alloc3DBorderFromObj or Tk_Get3DBorder).
+ * If this count is 0, then this structure is
+ * no longer valid and it isn't present in
+ * borderTable: it is being kept around only
+ * because there are objects referring to it.
+ * The structure is freed when objRefCount and
+ * resourceRefCount are both 0. */
+ int objRefCount; /* The number of Tcl objects that reference
+ * this structure. */
+ XColor *bgColorPtr; /* Background color (intensity between
+ * lightColorPtr and darkColorPtr). */
+ XColor *darkColorPtr; /* Color for darker areas (must free when
+ * deleting structure). NULL means shadows
+ * haven't been allocated yet.*/
+ XColor *lightColorPtr; /* Color used for lighter areas of border
+ * (must free this when deleting structure).
+ * NULL means shadows haven't been allocated
+ * yet. */
+ Pixmap shadow; /* Stipple pattern to use for drawing shadows
+ * areas. Used for displays with <= 64 colors
+ * or where colormap has filled up. */
+ GC bgGC; /* Used (if necessary) to draw areas in the
+ * background color. */
+ GC darkGC; /* Used to draw darker parts of the border.
+ * None means the shadow colors haven't been
+ * allocated yet.*/
+ GC lightGC; /* Used to draw lighter parts of the border.
+ * None means the shadow colors haven't been
+ * allocated yet. */
+ Tcl_HashEntry *hashPtr; /* Entry in borderTable (needed in order to
+ * delete structure). */
+ struct TkBorder *nextPtr; /* Points to the next TkBorder structure with
+ * the same color name. Borders with the same
+ * name but different screens or colormaps are
+ * chained together off a single entry in
+ * borderTable. */
+} TkBorder;
+
+#include "tkbltGraph.h"
+#include "tkbltGrPostscript.h"
+#include "tkbltGrPSOutput.h"
+
+using namespace Blt;
+
+PSOutput::PSOutput(Graph* graphPtr)
+{
+ graphPtr_ = graphPtr;
+
+ Tcl_DStringInit(&dString_);
+}
+
+PSOutput::~PSOutput()
+{
+ Tcl_DStringFree(&dString_);
+}
+
+void PSOutput::printPolyline(Point2d* screenPts, int nScreenPts)
+{
+ Point2d* pp = screenPts;
+ append("newpath\n");
+ format(" %g %g moveto\n", pp->x, pp->y);
+
+ Point2d* pend;
+ for (pp++, pend = screenPts + nScreenPts; pp < pend; pp++)
+ format(" %g %g lineto\n", pp->x, pp->y);
+}
+
+void PSOutput::printMaxPolyline(Point2d* points, int nPoints)
+{
+ if (nPoints <= 0)
+ return;
+
+ for (int nLeft = nPoints; nLeft > 0; nLeft -= 1500) {
+ int length = MIN(1500, nLeft);
+ printPolyline(points, length);
+ append("DashesProc stroke\n");
+ points += length;
+ }
+}
+
+void PSOutput::printSegments(Segment2d* segments, int nSegments)
+{
+ append("newpath\n");
+
+ for (Segment2d *sp = segments, *send = sp + nSegments; sp < send; sp++) {
+ format(" %g %g moveto %g %g lineto\n", sp->p.x, sp->p.y, sp->q.x, sp->q.y);
+ append("DashesProc stroke\n");
+ }
+}
+
+void PSOutput::computeBBox(int width, int height)
+{
+ Postscript* setupPtr = graphPtr_->postscript_;
+ PostscriptOptions* pops = (PostscriptOptions*)setupPtr->ops_;
+
+ // scale from points to pica
+ float pica = 25.4 / 72 *
+ WidthOfScreen(Tk_Screen(graphPtr_->tkwin_)) /
+ WidthMMOfScreen(Tk_Screen(graphPtr_->tkwin_));
+
+ int hBorder = 2*pops->xPad/pica;
+ int vBorder = 2*pops->yPad/pica;
+ int hSize = !pops->landscape ? width : height;
+ int vSize = !pops->landscape ? height : width;
+
+ // If the paper size wasn't specified, set it to the graph size plus the
+ // paper border.
+ int paperWidth = pops->reqPaperWidth > 0 ? pops->reqPaperWidth/pica :
+ hSize + hBorder;
+ int paperHeight = pops->reqPaperHeight > 0 ? pops->reqPaperHeight/pica :
+ vSize + vBorder;
+
+ // Scale the plot size if it's bigger than the paper
+ float hScale = (hSize+hBorder) > paperWidth ? 1.0 :
+ (float)(paperWidth - hBorder) / hSize;
+ float vScale = (vSize + vBorder) > paperHeight ? 1.0 :
+ (float)(paperHeight - vBorder) / vSize;
+
+ float scale = MIN(hScale, vScale);
+ if (scale != 1.0) {
+ hSize = hSize*scale + 0.5;
+ vSize = vSize*scale + 0.5;
+ }
+
+ int x = (paperWidth > hSize) && pops->center ?
+ (paperWidth - hSize) / 2 : pops->xPad/pica;
+ int y = (paperHeight > vSize) && pops->center ?
+ (paperHeight - vSize) / 2 : pops->yPad/pica;
+
+ setupPtr->left = x;
+ setupPtr->bottom = y;
+ setupPtr->right = x + hSize - 1;
+ setupPtr->top = y + vSize - 1;
+ setupPtr->scale = scale;
+ setupPtr->paperHeight = paperHeight;
+ setupPtr->paperWidth = paperWidth;
+}
+
+const char* PSOutput::getValue(int* lengthPtr)
+{
+ *lengthPtr = strlen(Tcl_DStringValue(&dString_));
+ return Tcl_DStringValue(&dString_);
+}
+
+void PSOutput::append(const char* string)
+{
+ Tcl_DStringAppend(&dString_, string, -1);
+}
+
+void PSOutput::format(const char* fmt, ...)
+{
+ va_list argList;
+
+ va_start(argList, fmt);
+ vsnprintf(scratchArr_, POSTSCRIPT_BUFSIZ, fmt, argList);
+ va_end(argList);
+ Tcl_DStringAppend(&dString_, scratchArr_, -1);
+}
+
+void PSOutput::setLineWidth(int lineWidth)
+{
+ if (lineWidth < 1)
+ lineWidth = 1;
+ format("%d setlinewidth\n", lineWidth);
+}
+
+void PSOutput::printRectangle(double x, double y, int width, int height)
+{
+ append("newpath\n");
+ format(" %g %g moveto\n", x, y);
+ format(" %d %d rlineto\n", width, 0);
+ format(" %d %d rlineto\n", 0, height);
+ format(" %d %d rlineto\n", -width, 0);
+ append("closepath\n");
+ append("stroke\n");
+}
+
+void PSOutput::fillRectangle(double x, double y, int width, int height)
+{
+ append("newpath\n");
+ format(" %g %g moveto\n", x, y);
+ format(" %d %d rlineto\n", width, 0);
+ format(" %d %d rlineto\n", 0, height);
+ format(" %d %d rlineto\n", -width, 0);
+ append("closepath\n");
+ append("fill\n");
+}
+
+void PSOutput::fillRectangles(XRectangle* rectangles, int nRectangles)
+{
+ for (XRectangle *rp = rectangles, *rend = rp + nRectangles; rp < rend; rp++)
+ fillRectangle((double)rp->x, (double)rp->y, (int)rp->width,(int)rp->height);
+}
+
+void PSOutput::setBackground(XColor* colorPtr)
+{
+ PostscriptOptions* pops = (PostscriptOptions*)graphPtr_->postscript_->ops_;
+ printXColor(colorPtr);
+ append(" setrgbcolor\n");
+ if (pops->greyscale)
+ append(" currentgray setgray\n");
+}
+
+void PSOutput::setForeground(XColor* colorPtr)
+{
+ PostscriptOptions* pops = (PostscriptOptions*)graphPtr_->postscript_->ops_;
+ printXColor(colorPtr);
+ append(" setrgbcolor\n");
+ if (pops->greyscale)
+ append(" currentgray setgray\n");
+}
+
+void PSOutput::setBackground(Tk_3DBorder border)
+{
+ TkBorder* borderPtr = (TkBorder*)border;
+ setBackground(borderPtr->bgColorPtr);
+}
+
+void PSOutput::setFont(Tk_Font font)
+{
+ Tcl_DString psdstr;
+ Tcl_DStringInit(&psdstr);
+ int psSize = Tk_PostscriptFontName(font, &psdstr);
+ format("%d /%s SetFont\n", psSize, Tcl_DStringValue(&psdstr));
+ Tcl_DStringFree(&psdstr);
+}
+
+void PSOutput::setLineAttributes(XColor* colorPtr,int lineWidth,
+ Dashes* dashesPtr, int capStyle,
+ int joinStyle)
+{
+ setJoinStyle(joinStyle);
+ setCapStyle(capStyle);
+ setForeground(colorPtr);
+ setLineWidth(lineWidth);
+ setDashes(dashesPtr);
+ append("/DashesProc {} def\n");
+}
+
+void PSOutput::fill3DRectangle(Tk_3DBorder border, double x, double y,
+ int width, int height, int borderWidth,
+ int relief)
+{
+ TkBorder* borderPtr = (TkBorder*)border;
+
+ setBackground(borderPtr->bgColorPtr);
+ fillRectangle(x, y, width, height);
+ print3DRectangle(border, x, y, width, height, borderWidth, relief);
+}
+
+void PSOutput::setClearBackground()
+{
+ append("1 1 1 setrgbcolor\n");
+}
+
+void PSOutput::setDashes(Dashes* dashesPtr)
+{
+
+ append("[ ");
+ if (dashesPtr) {
+ for (unsigned char* vp = dashesPtr->values; *vp != 0; vp++)
+ format(" %d", *vp);
+ }
+ append("] 0 setdash\n");
+}
+
+void PSOutput::fillPolygon(Point2d *screenPts, int nScreenPts)
+{
+ printPolygon(screenPts, nScreenPts);
+ append("fill\n");
+}
+
+void PSOutput::setJoinStyle(int joinStyle)
+{
+ // miter = 0, round = 1, bevel = 2
+ format("%d setlinejoin\n", joinStyle);
+}
+
+void PSOutput::setCapStyle(int capStyle)
+{
+ // X11:not last = 0, butt = 1, round = 2, projecting = 3
+ // PS: butt = 0, round = 1, projecting = 2
+ if (capStyle > 0)
+ capStyle--;
+
+ format("%d setlinecap\n", capStyle);
+}
+
+void PSOutput::printPolygon(Point2d *screenPts, int nScreenPts)
+{
+ Point2d* pp = screenPts;
+ append("newpath\n");
+ format(" %g %g moveto\n", pp->x, pp->y);
+
+ Point2d* pend;
+ for (pp++, pend = screenPts + nScreenPts; pp < pend; pp++)
+ format(" %g %g lineto\n", pp->x, pp->y);
+
+ format(" %g %g lineto\n", screenPts[0].x, screenPts[0].y);
+ append("closepath\n");
+}
+
+void PSOutput::print3DRectangle(Tk_3DBorder border, double x, double y,
+ int width, int height, int borderWidth,
+ int relief)
+{
+ int twiceWidth = (borderWidth * 2);
+ if ((width < twiceWidth) || (height < twiceWidth))
+ return;
+
+ TkBorder* borderPtr = (TkBorder*)border;
+
+ // Handle grooves and ridges with recursive calls
+ if ((relief == TK_RELIEF_GROOVE) || (relief == TK_RELIEF_RIDGE)) {
+ int halfWidth = borderWidth / 2;
+ int insideOffset = borderWidth - halfWidth;
+ print3DRectangle(border, (double)x, (double)y, width, height, halfWidth,
+ (relief == TK_RELIEF_GROOVE) ?
+ TK_RELIEF_SUNKEN : TK_RELIEF_RAISED);
+ print3DRectangle(border, (double)(x + insideOffset),
+ (double)(y + insideOffset), width - insideOffset * 2,
+ height - insideOffset * 2, halfWidth,
+ (relief == TK_RELIEF_GROOVE) ?
+ TK_RELIEF_RAISED : TK_RELIEF_SUNKEN);
+ return;
+ }
+
+ XColor* lightPtr = borderPtr->lightColorPtr;
+ XColor* darkPtr = borderPtr->darkColorPtr;
+ XColor light;
+ if (!lightPtr) {
+ light.red = 0x00;
+ light.blue = 0x00;
+ light.green = 0x00;
+ lightPtr = &light;
+ }
+ XColor dark;
+ if (!darkPtr) {
+ dark.red = 0x00;
+ dark.blue = 0x00;
+ dark.green = 0x00;
+ darkPtr = &dark;
+ }
+
+ XColor* topPtr, *bottomPtr;
+ if (relief == TK_RELIEF_RAISED) {
+ topPtr = lightPtr;
+ bottomPtr = darkPtr;
+ }
+ else if (relief == TK_RELIEF_SUNKEN) {
+ topPtr = darkPtr;
+ bottomPtr = lightPtr;
+ }
+ else if (relief == TK_RELIEF_SOLID) {
+ topPtr = lightPtr;
+ bottomPtr = lightPtr;
+ }
+ else {
+ topPtr = borderPtr->bgColorPtr;
+ bottomPtr = borderPtr->bgColorPtr;
+ }
+
+ setBackground(bottomPtr);
+ fillRectangle(x, y + height - borderWidth, width, borderWidth);
+ fillRectangle(x + width - borderWidth, y, borderWidth, height);
+
+ Point2d points[7];
+ points[0].x = points[1].x = points[6].x = x;
+ points[0].y = points[6].y = y + height;
+ points[1].y = points[2].y = y;
+ points[2].x = x + width;
+ points[3].x = x + width - borderWidth;
+ points[3].y = points[4].y = y + borderWidth;
+ points[4].x = points[5].x = x + borderWidth;
+ points[5].y = y + height - borderWidth;
+ if (relief != TK_RELIEF_FLAT)
+ setBackground(topPtr);
+
+ fillPolygon(points, 7);
+}
+
+void PSOutput::printXColor(XColor* colorPtr)
+{
+ format("%g %g %g",
+ ((double)(colorPtr->red >> 8) / 255.0),
+ ((double)(colorPtr->green >> 8) / 255.0),
+ ((double)(colorPtr->blue >> 8) / 255.0));
+}
+
+int PSOutput::preamble(const char* fileName)
+{
+ Postscript* setupPtr = graphPtr_->postscript_;
+ PostscriptOptions* ops = (PostscriptOptions*)setupPtr->ops_;
+
+ if (!fileName)
+ fileName = Tk_PathName(graphPtr_->tkwin_);
+
+ // Comments
+ append("%!PS-Adobe-3.0 EPSF-3.0\n");
+
+ // The "BoundingBox" comment is required for EPS files. The box
+ // coordinates are integers, so we need round away from the center of the
+ // box.
+ format("%%%%BoundingBox: %d %d %d %d\n",
+ setupPtr->left, setupPtr->paperHeight - setupPtr->top,
+ setupPtr->right, setupPtr->paperHeight - setupPtr->bottom);
+
+ append("%%Pages: 0\n");
+
+ format("%%%%Creator: (%s %s %s)\n", PACKAGE_NAME, PACKAGE_VERSION,
+ Tk_Class(graphPtr_->tkwin_));
+
+ time_t ticks = time((time_t *) NULL);
+ char date[200];
+ strcpy(date, ctime(&ticks));
+ char* newline = date + strlen(date) - 1;
+ if (*newline == '\n')
+ *newline = '\0';
+
+ format("%%%%CreationDate: (%s)\n", date);
+ format("%%%%Title: (%s)\n", fileName);
+ append("%%DocumentData: Clean7Bit\n");
+ if (ops->landscape)
+ append("%%Orientation: Landscape\n");
+ else
+ append("%%Orientation: Portrait\n");
+
+ append("%%DocumentNeededResources: font Helvetica Courier\n");
+ addComments(ops->comments);
+ append("%%EndComments\n\n");
+
+ // Prolog
+ prolog();
+
+ // Setup
+ append("%%BeginSetup\n");
+ append("gsave\n");
+ append("1 setlinewidth\n");
+ append("1 setlinejoin\n");
+ append("0 setlinecap\n");
+ append("[] 0 setdash\n");
+ append("0 0 0 setrgbcolor\n");
+
+ if (ops->footer) {
+ const char* who = getenv("LOGNAME");
+ if (!who)
+ who = "???";
+
+ append("8 /Helvetica SetFont\n");
+ append("10 30 moveto\n");
+ format("(Date: %s) show\n", date);
+ append("10 20 moveto\n");
+ format("(File: %s) show\n", fileName);
+ append("10 10 moveto\n");
+ format("(Created by: %s@%s) show\n", who, Tcl_GetHostName());
+ append("0 0 moveto\n");
+ }
+
+ // Set the conversion from postscript to X11 coordinates. Scale pica to
+ // pixels and flip the y-axis (the origin is the upperleft corner).
+ // Papersize is in pixels. Translate the new origin *after* changing the scale
+ append("% Transform coordinate system to use X11 coordinates\n");
+ append("% 1. Flip y-axis over by reversing the scale,\n");
+ append("% 2. Translate the origin to the other side of the page,\n");
+ append("% making the origin the upper left corner\n");
+ append("1 -1 scale\n");
+ format("0 %d translate\n", -setupPtr->paperHeight);
+
+ // Set Origin
+ format("%% Set origin\n%d %d translate\n\n", setupPtr->left,setupPtr->bottom);
+ if (ops->landscape)
+ format("%% Landscape orientation\n0 %g translate\n-90 rotate\n",
+ ((double)graphPtr_->width_ * setupPtr->scale));
+
+ append("\n%%EndSetup\n\n");
+
+ return TCL_OK;
+}
+
+void PSOutput::addComments(const char** comments)
+{
+ if (!comments)
+ return;
+
+ for (const char** pp = comments; *pp; pp+=2) {
+ if (*(pp+1) == NULL)
+ break;
+ format("%% %s: %s\n", *pp, *(pp+1));
+ }
+}
+
+unsigned char PSOutput::reverseBits(unsigned char byte)
+{
+ byte = ((byte >> 1) & 0x55) | ((byte << 1) & 0xaa);
+ byte = ((byte >> 2) & 0x33) | ((byte << 2) & 0xcc);
+ byte = ((byte >> 4) & 0x0f) | ((byte << 4) & 0xf0);
+ return byte;
+}
+
+void PSOutput::byteToHex(unsigned char byte, char* string)
+{
+ static char hexDigits[] = "0123456789ABCDEF";
+
+ string[0] = hexDigits[byte >> 4];
+ string[1] = hexDigits[byte & 0x0F];
+}
+
+void PSOutput::prolog()
+{
+ append(
+"%%BeginProlog\n"
+"%\n"
+"% PostScript prolog file of the BLT graph widget.\n"
+"%\n"
+"% Copyright 1989-1992 Regents of the University of California.\n"
+"% Permission to use, copy, modify, and distribute this\n"
+"% software and its documentation for any purpose and without\n"
+"% fee is hereby granted, provided that the above copyright\n"
+"% notice appear in all copies. The University of California\n"
+"% makes no representations about the suitability of this\n"
+"% software for any purpose. It is provided 'as is' without\n"
+"% express or implied warranty.\n"
+"%\n"
+"% Copyright 1991-1997 Bell Labs Innovations for Lucent Technologies.\n"
+"%\n"
+"% Permission to use, copy, modify, and distribute this software and its\n"
+"% documentation for any purpose and without fee is hereby granted, provided\n"
+"% that the above copyright notice appear in all copies and that both that the\n"
+"% copyright notice and warranty disclaimer appear in supporting documentation,\n"
+"% and that the names of Lucent Technologies any of their entities not be used\n"
+"% in advertising or publicity pertaining to distribution of the software\n"
+"% without specific, written prior permission.\n"
+"%\n"
+"% Lucent Technologies disclaims all warranties with regard to this software,\n"
+"% including all implied warranties of merchantability and fitness. In no event\n"
+"% shall Lucent Technologies be liable for any special, indirect or\n"
+"% consequential damages or any damages whatsoever resulting from loss of use,\n"
+"% data or profits, whether in an action of contract, negligence or other\n"
+"% tortuous action, arising out of or in connection with the use or performance\n"
+"% of this software.\n"
+"%\n"
+"\n"
+"200 dict begin\n"
+"\n"
+"/BaseRatio 1.3467736870885982 def % Ratio triangle base / symbol size\n"
+"/DrawSymbolProc 0 def % Routine to draw symbol outline/fill\n"
+"/DashesProc 0 def % Dashes routine (line segments)\n"
+"\n"
+"% Define the array ISOLatin1Encoding (which specifies how characters are \n"
+"% encoded for ISO-8859-1 fonts), if it isn't already present (Postscript \n"
+"% level 2 is supposed to define it, but level 1 doesn't). \n"
+"\n"
+"systemdict /ISOLatin1Encoding known not { \n"
+" /ISOLatin1Encoding [ \n"
+" /space /space /space /space /space /space /space /space \n"
+" /space /space /space /space /space /space /space /space \n"
+" /space /space /space /space /space /space /space /space \n"
+" /space /space /space /space /space /space /space /space \n"
+" /space /exclam /quotedbl /numbersign /dollar /percent /ampersand \n"
+" /quoteright \n"
+" /parenleft /parenright /asterisk /plus /comma /minus /period /slash \n"
+" /zero /one /two /three /four /five /six /seven \n"
+" /eight /nine /colon /semicolon /less /equal /greater /question \n"
+" /at /A /B /C /D /E /F /G \n"
+" /H /I /J /K /L /M /N /O \n"
+" /P /Q /R /S /T /U /V /W \n"
+" /X /Y /Z /bracketleft /backslash /bracketright /asciicircum /underscore \n"
+" /quoteleft /a /b /c /d /e /f /g \n"
+" /h /i /j /k /l /m /n /o \n"
+" /p /q /r /s /t /u /v /w \n"
+" /x /y /z /braceleft /bar /braceright /asciitilde /space \n"
+" /space /space /space /space /space /space /space /space \n"
+" /space /space /space /space /space /space /space /space \n"
+" /dotlessi /grave /acute /circumflex /tilde /macron /breve /dotaccent \n"
+" /dieresis /space /ring /cedilla /space /hungarumlaut /ogonek /caron \n"
+" /space /exclamdown /cent /sterling /currency /yen /brokenbar /section \n"
+" /dieresis /copyright /ordfeminine /guillemotleft /logicalnot /hyphen \n"
+" /registered /macron \n"
+" /degree /plusminus /twosuperior /threesuperior /acute /mu /paragraph \n"
+" /periodcentered \n"
+" /cedillar /onesuperior /ordmasculine /guillemotright /onequarter \n"
+" /onehalf /threequarters /questiondown \n"
+" /Agrave /Aacute /Acircumflex /Atilde /Adieresis /Aring /AE /Ccedilla \n"
+" /Egrave /Eacute /Ecircumflex /Edieresis /Igrave /Iacute /Icircumflex \n"
+" /Idieresis \n"
+" /Eth /Ntilde /Ograve /Oacute /Ocircumflex /Otilde /Odieresis /multiply \n"
+" /Oslash /Ugrave /Uacute /Ucircumflex /Udieresis /Yacute /Thorn \n"
+" /germandbls \n"
+" /agrave /aacute /acircumflex /atilde /adieresis /aring /ae /ccedilla \n"
+" /egrave /eacute /ecircumflex /edieresis /igrave /iacute /icircumflex \n"
+" /idieresis \n"
+" /eth /ntilde /ograve /oacute /ocircumflex /otilde /odieresis /divide \n"
+" /oslash /ugrave /uacute /ucircumflex /udieresis /yacute /thorn \n"
+" /ydieresis \n"
+" ] def \n"
+"} if \n"
+"\n"
+"% font ISOEncode font \n"
+"% This procedure changes the encoding of a font from the default \n"
+"% Postscript encoding to ISOLatin1. It is typically invoked just \n"
+"% before invoking 'setfont'. The body of this procedure comes from \n"
+"% Section 5.6.1 of the Postscript book. \n"
+"\n"
+"/ISOEncode { \n"
+" dup length dict\n"
+" begin \n"
+" {1 index /FID ne {def} {pop pop} ifelse} forall \n"
+" /Encoding ISOLatin1Encoding def \n"
+" currentdict \n"
+" end \n"
+"\n"
+" % I'm not sure why it's necessary to use 'definefont' on this new \n"
+" % font, but it seems to be important; just use the name 'Temporary' \n"
+" % for the font. \n"
+"\n"
+" /Temporary exch definefont \n"
+"} bind def \n"
+"\n"
+"/Stroke {\n"
+" gsave\n"
+" stroke\n"
+" grestore\n"
+"} def\n"
+"\n"
+"/Fill {\n"
+" gsave\n"
+" fill\n"
+" grestore\n"
+"} def\n"
+"\n"
+"/SetFont { \n"
+" % Stack: pointSize fontName\n"
+" findfont exch scalefont ISOEncode setfont\n"
+"} def\n"
+"\n"
+"/Box {\n"
+" % Stack: x y width height\n"
+" newpath\n"
+" exch 4 2 roll moveto\n"
+" dup 0 rlineto\n"
+" exch 0 exch rlineto\n"
+" neg 0 rlineto\n"
+" closepath\n"
+"} def\n"
+"\n"
+"/LS { % Stack: x1 y1 x2 y2\n"
+" newpath \n"
+" 4 2 roll moveto \n"
+" lineto \n"
+" closepath\n"
+" stroke\n"
+"} def\n"
+"\n"
+"/baselineSampler ( TXygqPZ) def\n"
+"% Put an extra-tall character in; done this way to avoid encoding trouble\n"
+"baselineSampler 0 196 put\n"
+"\n"
+"/cstringshow {\n"
+" {\n"
+" dup type /stringtype eq\n"
+" { show } { glyphshow }\n"
+" ifelse\n"
+" } forall\n"
+"} bind def\n"
+"\n"
+"/cstringwidth {\n"
+" 0 exch 0 exch\n"
+" {\n"
+" dup type /stringtype eq\n"
+" { stringwidth } {\n"
+" currentfont /Encoding get exch 1 exch put (\001)\n"
+" stringwidth\n"
+" }\n"
+" ifelse\n"
+" exch 3 1 roll add 3 1 roll add exch\n"
+" } forall\n"
+"} bind def\n"
+"\n"
+"/DrawText {\n"
+" gsave\n"
+" /justify exch def\n"
+" /yoffset exch def\n"
+" /xoffset exch def\n"
+" /strings exch def\n"
+" % Compute the baseline offset and the actual font height.\n"
+" 0 0 moveto baselineSampler false charpath\n"
+" pathbbox dup /baseline exch def\n"
+" exch pop exch sub /height exch def pop\n"
+" newpath\n"
+" % overall width\n"
+" /ww 0 def\n"
+" strings {\n"
+" cstringwidth pop\n"
+" dup ww gt {/ww exch def} {pop} ifelse\n"
+" newpath\n"
+" } forall\n"
+" % overall height\n"
+" /hh 0 def\n"
+" strings length height mul /hh exch def\n"
+" newpath\n"
+" % Translate to x,y\n"
+" translate\n"
+" % Translate to offset\n"
+" ww xoffset mul hh yoffset mul translate\n"
+" % rotate\n"
+" ww 2 div hh 2 div translate\n"
+" neg rotate\n"
+" ww -2 div hh -2 div translate\n"
+" % Translate to justify and baseline\n"
+" justify ww mul baseline translate\n"
+" % For each line, justify and display\n"
+" strings {\n"
+" dup cstringwidth pop\n"
+" justify neg mul 0 moveto\n"
+" gsave\n"
+" 1 -1 scale\n"
+" cstringshow\n"
+" grestore\n"
+" 0 height translate\n"
+" } forall\n"
+" grestore\n"
+"} bind def \n"
+"\n"
+"% Symbols:\n"
+"\n"
+"% Skinny-cross\n"
+"/Sc {\n"
+" % Stack: x y symbolSize\n"
+" gsave\n"
+" 3 -2 roll translate 45 rotate\n"
+" 0 0 3 -1 roll Sp\n"
+" grestore\n"
+"} def\n"
+"\n"
+"% Skinny-plus\n"
+"/Sp {\n"
+" % Stack: x y symbolSize\n"
+" gsave\n"
+" 3 -2 roll translate\n"
+" 2 div\n"
+" dup 2 copy\n"
+" newpath \n"
+" neg 0 \n"
+" moveto 0 \n"
+" lineto\n"
+" DrawSymbolProc\n"
+" newpath \n"
+" neg 0 \n"
+" exch moveto 0 \n"
+" exch lineto\n"
+" DrawSymbolProc\n"
+" grestore\n"
+"} def\n"
+"\n"
+"% Cross\n"
+"/Cr {\n"
+" % Stack: x y symbolSize\n"
+" gsave\n"
+" 3 -2 roll translate 45 rotate\n"
+" 0 0 3 -1 roll Pl\n"
+" grestore\n"
+"} def\n"
+"\n"
+"% Plus\n"
+"/Pl {\n"
+" % Stack: x y symbolSize\n"
+" gsave\n"
+" 3 -2 roll translate\n"
+" dup 2 div\n"
+" exch 6 div\n"
+"\n"
+" %\n"
+" % 2 3 The plus/cross symbol is a\n"
+" % closed polygon of 12 points.\n"
+" % 0 1 4 5 The diagram to the left\n"
+" % x,y represents the positions of\n"
+" % 11 10 7 6 the points which are computed\n"
+" % below.\n"
+" % 9 8\n"
+" %\n"
+"\n"
+" newpath\n"
+" 2 copy exch neg exch neg moveto \n"
+" dup neg dup lineto\n"
+" 2 copy neg exch neg lineto\n"
+" 2 copy exch neg lineto\n"
+" dup dup neg lineto \n"
+" 2 copy neg lineto 2 copy lineto\n"
+" dup dup lineto \n"
+" 2 copy exch lineto \n"
+" 2 copy neg exch lineto\n"
+" dup dup neg exch lineto \n"
+" exch neg exch lineto\n"
+" closepath\n"
+" DrawSymbolProc\n"
+" grestore\n"
+"} def\n"
+"\n"
+"% Circle\n"
+"/Ci {\n"
+" % Stack: x y symbolSize\n"
+" gsave\n"
+" 3 copy pop moveto \n"
+" newpath\n"
+" 2 div 0 360 arc\n"
+" closepath \n"
+" DrawSymbolProc\n"
+" grestore\n"
+"} def\n"
+"\n"
+"% Square\n"
+"/Sq {\n"
+" % Stack: x y symbolSize\n"
+" gsave\n"
+" dup dup 2 div dup\n"
+" 6 -1 roll exch sub exch\n"
+" 5 -1 roll exch sub 4 -2 roll Box\n"
+" DrawSymbolProc\n"
+" grestore\n"
+"} def\n"
+"\n"
+"% Line\n"
+"/Li {\n"
+" % Stack: x y symbolSize\n"
+" gsave\n"
+" 3 1 roll exch 3 -1 roll 2 div 3 copy\n"
+" newpath\n"
+" sub exch moveto \n"
+" add exch lineto\n"
+" closepath\n"
+" stroke\n"
+" grestore\n"
+"} def\n"
+"\n"
+"% Diamond\n"
+"/Di {\n"
+" % Stack: x y symbolSize\n"
+" gsave\n"
+" 3 1 roll translate 45 rotate 0 0 3 -1 roll Sq\n"
+" grestore\n"
+"} def\n"
+" \n"
+"% Triangle\n"
+"/Tr {\n"
+" % Stack: x y symbolSize\n"
+" gsave\n"
+" 3 -2 roll translate\n"
+" BaseRatio mul 0.5 mul % Calculate 1/2 base\n"
+" dup 0 exch 30 cos mul % h1 = height above center point\n"
+" neg % b2 0 -h1\n"
+" newpath \n"
+" moveto % point 1; b2\n"
+" dup 30 sin 30 cos div mul % h2 = height below center point\n"
+" 2 copy lineto % point 2; b2 h2\n"
+" exch neg exch lineto % \n"
+" closepath\n"
+" DrawSymbolProc\n"
+" grestore\n"
+"} def\n"
+"\n"
+"% Arrow\n"
+"/Ar {\n"
+" % Stack: x y symbolSize\n"
+" gsave\n"
+" 3 -2 roll translate\n"
+" BaseRatio mul 0.5 mul % Calculate 1/2 base\n"
+" dup 0 exch 30 cos mul % h1 = height above center point\n"
+" % b2 0 h1\n"
+" newpath moveto % point 1; b2\n"
+" dup 30 sin 30 cos div mul % h2 = height below center point\n"
+" neg % -h2 b2\n"
+" 2 copy lineto % point 2; b2 h2\n"
+" exch neg exch lineto % \n"
+" closepath\n"
+" DrawSymbolProc\n"
+" grestore\n"
+"} def\n"
+"\n"
+"%%EndProlog\n"
+);
+}