diff options
| author | joye <joye> | 2014-06-11 18:19:59 (GMT) |
|---|---|---|
| committer | joye <joye> | 2014-06-11 18:19:59 (GMT) |
| commit | f3cd249d5c6bf054c866a9a2542501750e75c851 (patch) | |
| tree | ec623c9dc6d8e0982d89ceff0e17bdc9df63105b /src | |
| parent | 2650c6bb0d4fc1c707bbf3407dc94763ee140a17 (diff) | |
| download | blt-f3cd249d5c6bf054c866a9a2542501750e75c851.zip blt-f3cd249d5c6bf054c866a9a2542501750e75c851.tar.gz blt-f3cd249d5c6bf054c866a9a2542501750e75c851.tar.bz2 | |
*** empty log message ***
Diffstat (limited to 'src')
| -rw-r--r-- | src/bltGrPSOutput.C | 2 | ||||
| -rw-r--r-- | src/bltGrText.C | 5 |
2 files changed, 4 insertions, 3 deletions
diff --git a/src/bltGrPSOutput.C b/src/bltGrPSOutput.C index f85f5b3..9ff60e9 100644 --- a/src/bltGrPSOutput.C +++ b/src/bltGrPSOutput.C @@ -889,7 +889,7 @@ void PostScript::prolog() " dup cstringwidth pop\n" " justify neg mul 0 moveto\n" " cstringshow\n" -" 0 spacing neg translate\n" +" 0 spacing translate\n" " } forall\n" " grestore\n" "} bind def \n" diff --git a/src/bltGrText.C b/src/bltGrText.C index f806e72..ee7bfe1 100644 --- a/src/bltGrText.C +++ b/src/bltGrText.C @@ -141,8 +141,6 @@ void TextStyle::printText(PostScript* psPtr, const char *text, int x, int y) Tk_TextLayout layout = Tk_ComputeTextLayout(ops->font, text, -1, -1, ops->justify, 0, &w1, &h1); - // cerr << '(' << x << ',' << y << ')' << ' ' << text << endl; - int xx =0; int yy =0; switch (ops->anchor) { @@ -167,6 +165,9 @@ void TextStyle::printText(PostScript* psPtr, const char *text, int x, int y) Tk_FontMetrics fm; Tk_GetFontMetrics(ops->font, &fm); + psPtr->setFont(ops->font); + psPtr->setForeground(ops->color); + psPtr->format("%g %d %d [\n", ops->angle, x, y); Tcl_ResetResult(graphPtr_->interp_); Tk_TextLayoutToPostscript(graphPtr_->interp_, layout); |