From 887179510d198cb0a129fef6959638ab75eec1be Mon Sep 17 00:00:00 2001 From: William Joye Date: Thu, 26 Sep 2019 16:31:50 -0400 Subject: fix ps rotated text issue --- generic/tkbltGrPSOutput.C | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/generic/tkbltGrPSOutput.C b/generic/tkbltGrPSOutput.C index 01a3101..155a723 100644 --- a/generic/tkbltGrPSOutput.C +++ b/generic/tkbltGrPSOutput.C @@ -732,6 +732,9 @@ void PSOutput::prolog() " /yoffset exch def\n" " /xoffset exch def\n" " /strings exch def\n" +" /yy exch def\n" +" /xx exch def\n" +" /rr 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" @@ -749,12 +752,14 @@ void PSOutput::prolog() " strings length height mul /hh exch def\n" " newpath\n" " % Translate to x,y\n" -" translate\n" +" xx yy translate\n" " % Translate to offset\n" -" ww xoffset mul hh yoffset mul translate\n" +" xoffset rr cos mul yoffset rr sin mul add /xxo exch def\n" +" xoffset rr sin mul neg yoffset rr cos mul add /yyo exch def\n" +" ww xxo mul hh yyo mul translate\n" " % rotate\n" " ww 2 div hh 2 div translate\n" -" neg rotate\n" +" rr neg rotate\n" " ww -2 div hh -2 div translate\n" " % Translate to justify and baseline\n" " justify ww mul baseline translate\n" -- cgit v0.12