wyse overhaul (final pass) -- clean up and add wyse 99
[unix-history] / usr / src / share / me / chars.me
CommitLineData
84f25a89 1.nr _0 \n(c.
0a1cd3e4 2.\" Copyright (c) 1988 The Regents of the University of California.
70e37822
KB
3.\" All rights reserved.
4.\"
5.\" Redistribution and use in source and binary forms are permitted
0a1cd3e4
KB
6.\" provided that the above copyright notice and this paragraph are
7.\" duplicated in all such forms and that any documentation,
8.\" advertising materials, and other materials related to such
9.\" distribution and use acknowledge that the software was developed
10.\" by the University of California, Berkeley. The name of the
11.\" University may not be used to endorse or promote products derived
12.\" from this software without specific prior written permission.
13.\" THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
14.\" IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
15.\" WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
16.\"
17.\" @(#)chars.me 2.5 (Berkeley) %G%
18.\"
a3fd506b 19.\" %beginstrip%
70e37822 20.\"
84f25a89
EA
21.\" *** special characters ***
22.\" this file uses temp strings of the form #x.
23.if n \
24\{\
25. ds #[ \f1
26. ds #] \fP
27. ds #h 0
28. ds #v 0.8m
1cd5a456 29. ds #f 0.3m
84f25a89
EA
30.\}
31.if t \
32\{\
33. ds #[ \&
34. ds #] \&
35. ds #h ((1u-(\\\\n(.fu%2u))*0.13m)
36. ds #v 0.6m
1cd5a456 37. ds #f 0
84f25a89
EA
38.\}
39.\" \" accents
40.ds ' \k_\h'-(\\n(.wu*8/10-\*(#h)'\*(#[\(aa\h'|\\n_u'\*(#]
41.ds ` \k_\h'-(\\n(.wu*7/10-\*(#h)'\*(#[\(ga\h'|\\n_u'\*(#]
42.\" \" umlaut
1cd5a456 43.ds : \k_\h'-(\\n(.wu*8/10-\*(#h+0.1m+\*(#f)'\v'-\*(#v'\*(#[\z.\h'0.2m+\*(#f'.\h'|\\n_u'\v'\*(#v'\*(#]
84f25a89
EA
44.\" \" circumflex and tilde
45.ds ^ \k_\h'-(\\n(.wu-\*(#h-0.05m)'\*(#[^\h'|\\n_u'\*(#]
46.ds ~ \k_\h'-(\\n(.wu-\*(#h-0.05m)'\*(#[~\h'|\\n_u'\*(#]
47.\" \" cedilla and czech
48.ds , \k_\h'-(\\n(.wu)'\*(#[,\h'|\\n_u'\*(#]
49.ds v \k_\h'-(\\n(.wu*9/10-\*(#h)'\v'-\*(#v'\*(#[\s-4v\s0\v'\*(#v'\h'|\\n_u'\*(#]
50.\" \" Norwegian A or angstrom
51.ds o \k_\h'-(\\n(.wu+\w'\(de'u-\*(#h)/2u'\v'-0.4n'\*(#[\z\(de\v'0.4n'\h'|\\n_u'\*(#]
52.\" \" there exists, for all
53.ds qe \*(#[\v'0.5m'\z\(em\v'-0.65m'\z\(em\v'-0.65m'\z\(em\v'0.8m'\h'0.3m'|\h'-0.3m'\*(#]
54.ds qa \*(#[\h'-0.24m'\z\e\h'0.48m'\z\(sl\h'-0.24m'\v'-0.15m'\(em\v'0.15m'\*(#]
55.if t \
56\{\
57. ds qe \s-2\v'0.45m'\z\(em\v'-0.625m'\z\(em\v'-0.625m'\(em\v'0.8m'\s0\h'-0.1m'\v'-0.05m'\(br\v'0.05m'\h'0.1m'
58. ds qa \z\e\h'0.35m'\z\(sl\h'-0.33m'\v'-0.3m'\s-4\(em\s0\v'0.3m'\h'0.15m'
59.\}
60.if \n($T \
61\{\
62. ds ' \*(#[\h'-1'\(aa\*(#]
63. ds ` \*(#[\h'-1'\(ga\*(#]
64. ds : \&
65. ds ^ \*(#[\h'-1'^\*(#]
66. ds ~ \*(#[\h'-1'~\*(#]
67. ds , \*(#[\h'-1',\*(#]
68. ds v \&
69. ds o \&
70. ds qe EXISTS
71. ds qa FORALL
72.\}
73.rm #[
74.rm #]
75.rm #h
76.rm #v
77.rm #f
78.nr c. \n(_0