doc/em/macr.nr

   1 .LP
   2 .if n \{\
   3 .nr LL 78
   4 .ll 78 \}
   5 .tr ~
   6 .\" below are three simple macros to get the drawings right
   7 .\" added by Dick Grune
   8 .de Dr                          \" Drawing $1 (size)
   9 .sp 1
  10 .ne \\$1
  11 .na
  12 .ft CW                          \" constant spacing
  13 .lg 0                           \" no ligatures
  14 ..
  15 .de Df                          \" Drawing Footer
  16 .br
  17 .sp 1
  18 .ft R
  19 .ce 1000
  20 .lg 1
  21 ..
  22 .de De                          \" Drawing End $1 (lines)
  23 .br
  24 .ft R
  25 .lg 1
  26 .ce 0
  27 .ad
  28 .sp \\$1
  29 ..
  30 .\" macro for exponents, added by Ceriel Jacobs
  31 .de Ex                          \" Exponent $1 $2 [$3]
  32 \\$1\v'-0.5m'\s-2\\$2\s+2\v'0.5m'\\$3
  33 ..
  34 .\" QQ is like PP, but without space
  35 .                               \" use .PP, with PD 0.
  36 .de QQ
  37 .nr xx \\n(PD
  38 .nr PD 0
  39 .PP
  40 .nr PD \\n(xx
  41 ..
  42 .nr N1 0
  43 .nr N2 0
  44 .nr N3 0
  45 .nr N4 0
  46 .nr N5 0
  47 .nr A5 0
  48 .af A5 A
  49 .de P1
  50 .nr N2 0
  51 .nr N1 \\n(N1+1
  52 .ds Tl "\\n(N1. \\$1
  53 .Ca 0
  54 .sp
  55 .LP
  56 \\fB\\n(N1.  \\$1\\fP
  57 .sp
  58 ..
  59 .de P2
  60 .nr N3 0
  61 .nr N2 \\n(N2+1
  62 .ds Tl "\\n(N1.\\n(N2 \\$1
  63 .ne 5
  64 .Ca 2
  65 .sp
  66 .LP
  67 \\fB\\n(N1.\\n(N2  \\$1\fP
  68 ..
  69 .de P3
  70 .nr N4 0
  71 .nr N3 \\n(N3+1
  72 .ds Tl "\\n(N1.\\n(N2.\\n(N3 \\$1
  73 .Ca 4
  74 .LP
  75 \\fI\\n(N1.\\n(N2.\\n(N3  \\$1\fP
  76 ..
  77 .de P4
  78 .nr N4 \\n(N4+1
  79 .ds Tl "\\n(N1.\\n(N2.\\n(N3.\\n(N4 \\$1
  80 .ne 5
  81 .Ca 6
  82 .LP
  83 \\fI\\n(N1.\\n(N2.\\n(N3.\\n(N4  \\$1\fP
  84 ..
  85 .de AP
  86 .nr N5 \\n(N5+1
  87 .nr A5 \\n(N5
  88 .ds Tl "\\n(A5. \\$1
  89 .ne 5
  90 .Ca 0
  91 .LP
  92 \\fB\\n(A5.  \\$1\\fP
  93 .sp
  94 ..
  95 .de Ca
  96 .da Cc
  97 .if \\$1=0 \!.sp \\\\n(PDu
  98 \!\l\&\\$1n\ \&\\*(Tl \l\&|\\\\n(LLu-\w\&\ \\n(PN\&u.\&\ \\n(PN
  99 \!.br
 100 .da
 101 ..
 102 .de Ct
 103 .Cc
 104 .rm Cc
 105 ..
 106 .de PT
 107 .lt \\n(LLu
 108 .pc %
 109 .nr PN \\n%-1
 110 .if \\n(PN%2=1 .tl '''\\n(PN'
 111 .if (\\n(PN%2=0)&(\\n(PN) .tl '\\n(PN'''
 112 .lt \\n(.lu
 113 ..