Re: [Groff] I'd like a \X'...' stuff to write mirror-characters

[baruchel]

On Wed, Aug 23, 2000 at 03:08:15PM +0100, Ted Harding wrote:
> The following is code which I use for the Azeri "upside-down e" character:
> 
> .\" Azeri upside-down e and E
> .ds eupsidedown "\h'\w'e'u'\v'-0.45m'\X'ps: exec gsave currentpoint \
> 2 copy translate -180.0000 rotate neg exch neg exch \
> translate'e\X'ps: exec grestore'\h'-\w'e'u'\v'0.45m'
> .char \(eu \*[eupsidedown]
> .char \(EU \s+'\\n[.ps]/2'\(eu\s0

Brest, le jeudi 24 août

Hi,

what do you think of a more general macro :

.de MAKEsymetric
.  ds \\$1tmp "\h'\w'\\$2'u'\X'ps: exec gsave currentpoint \
   2 copy translate -180.0000 rotate neg exch neg exch \
   translate'\\$2\X'ps: exec grestore'\h'-\w'\\$2'u'
.  nr symetric \w'\\$2'
.  char \\[\\$1] 
\v'-\\n[rsb]u'\v'-\\n[rst]u'\\*[\\$1tmp]\v'\\n[rst]u'\v'\\n[rsb]u'
.  rr symetric
..

Then, you can use :

.MAKEsymetric eee E
\[eee]ssai

or even:

.MAKEsymetric eee \s16E\s0
\[eee]ssay

Of course it works correctly with letters like 'j' with a part under the baselin

.MAKEsymetric jjj j
\[jjj]oy

Thanks for the original code, Ted (may I call you Ted ?), it was really a
great help to me. I also used the other cde (for the mirror effect).

-- 
   .~.   Thomas Baruchel
   /V\   address@hidden
  // \\    Brest
 /(   )\   FRANCE
  ^`~'^