home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Distributions / ucb / spencer_2bsd.tar.gz / 2bsd.tar / src / me / chars.me < prev    next >
Text File  |  1980-02-17  |  2KB  |  60 lines
  1. .nr _0 \n(c.
  2. .\"    *** special characters ***
  3. .\" this file uses temp strings of the form #x.
  4. .if n \
  5. \{\
  6. .    ds #[ \f1
  7. .    ds #] \fP
  8. .    ds #h 0
  9. .    ds #v 0.8m
  10. .    ds #f +0.3m
  11. .\}
  12. .if t \
  13. \{\
  14. .    ds #[ \&
  15. .    ds #] \&
  16. .    ds #h ((1u-(\\\\n(.fu%2u))*0.13m)
  17. .    ds #v 0.6m
  18. .    ds #f "\"
  19. .\}
  20. .\"            \" accents
  21. .ds ' \k_\h'-(\\n(.wu*8/10-\*(#h)'\*(#[\(aa\h'|\\n_u'\*(#]
  22. .ds ` \k_\h'-(\\n(.wu*7/10-\*(#h)'\*(#[\(ga\h'|\\n_u'\*(#]
  23. .\"            \" umlaut
  24. .ds : \k_\h'-(\\n(.wu*8/10-\*(#h+0.1m\*(#f)'\v'-\*(#v'\*(#[\z.\h'0.2m\*(#f'.\h'|\\n_u'\v'\*(#v'\*(#]
  25. .\"            \" circumflex and tilde
  26. .ds ^ \k_\h'-(\\n(.wu-\*(#h-0.05m)'\*(#[^\h'|\\n_u'\*(#]
  27. .ds ~ \k_\h'-(\\n(.wu-\*(#h-0.05m)'\*(#[~\h'|\\n_u'\*(#]
  28. .\"            \" cedilla and czech
  29. .ds , \k_\h'-(\\n(.wu)'\*(#[,\h'|\\n_u'\*(#]
  30. .ds v \k_\h'-(\\n(.wu*9/10-\*(#h)'\v'-\*(#v'\*(#[\s-4v\s0\v'\*(#v'\h'|\\n_u'\*(#]
  31. .\"            \" Norwegian A
  32. .ds o \k_\h'-(\\n(.wu+\w'\(de'u-\*(#h)/2u'\v'-0.4n'\*(#[\z\(de\v'0.4n'\h'|\\n_u'\*(#]
  33. .\"            \" there exists, for all
  34. .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'\*(#]
  35. .ds qa \*(#[\h'-0.24m'\z\e\h'0.48m'\z\(sl\h'-0.24m'\v'-0.15m'\(em\v'0.15m'\*(#]
  36. .if t \
  37. \{\
  38. .    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'
  39. .    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'
  40. .\}
  41. .if \n($T \
  42. \{\
  43. .    ds ' \*(#[\h'-1'\(aa\*(#]
  44. .    ds ` \*(#[\h'-1'\(ga\*(#]
  45. .    ds : \&
  46. .    ds ^ \*(#[\h'-1'^\*(#]
  47. .    ds ~ \*(#[\h'-1'~\*(#]
  48. .    ds , \*(#[\h'-1',\*(#]
  49. .    ds v \&
  50. .    ds o \&
  51. .    ds qe EXISTS
  52. .    ds qa FORALL
  53. .\}
  54. .rm #[
  55. .rm #]
  56. .rm #h
  57. .rm #v
  58. .rm #f
  59. .nr c. \n(_0
  60.