sys/lib/tmac/tmac.twb

   1 .de CO                          \" Set type color; no value => reset
   2 .ie '\\$1'' .ds oC \\*(pC
   3 .el \{\
   4 .ds pC \\*(oC
   5 .ds oC \\$1 \\$2 \\$3 \\$4
   6 ...\}
   7 \\X'color \\*(oC'\c
   8 ..
   9 .de BC                          \" Set background color; no value => reset
  10 .ie '\\$1'' .ds oB \\*(pB
  11 .el \{\
  12 .ds pB \\*(oB
  13 .ds oB \\$1 \\$2 \\$3 \\$4
  14 ...\}
  15 \\X'bgcolor \\*(oB'\c
  16 ..
  17 .de CL
  18 \\X'clear'\c
  19 ..
  20 .de IN                          \" Include picture $1 with ul corner at ($2,$3)
  21 .nr xc \\$2i
  22 .nr yc \\$3i
  23 \\X'picfile \\$1 \\n(xc \\n(yc'\c
  24 ..
  25 .de CW                          \" clear window ($1,$2) is ul ($3,$4) is lr, uses bg color
  26 .nr x0 \\$1i
  27 .nr y0 \\$2i
  28 .nr x1 \\$3i
  29 .nr x2 \\$4i
  30 \\X'clrwin \\n(x0 \\n(y0 \\n(x1 \\n(y1
  31 ..
  32 .de BW                          \" window border ($1,$2) is ul ($3,$4) is lr, uses fg color
  33 .nr x0 \\$1i
  34 .nr y0 \\$2i
  35 .nr x1 \\$3i
  36 .nr x2 \\$4i
  37 \\X'border \\n(x0 \\n(y0 \\n(x1 \\n(y1
  38 ..
  39 .de SL                          \" start slide, args are optional title
  40 .bp
  41 .ce 0
  42 .ft B
  43 .nf
  44 .if !'\\$1'' \{\
  45 .ps 36p
  46 .vs 36p
  47 \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
  48 ...\}
  49 .ps 30p
  50 .vs 30p
  51 ..
  52 .de PS                          \" Start pic picture
  53 .                               \" $1 is height, $2 is width, both in inches
  54 .sp .3
  55 .in (\\n(.lu-\\$2)/2u
  56 .ne \\$1
  57 ..
  58 .de PE                          \" End pic picture
  59 .in
  60 .sp .6
  61 ..
  62 .de IS                          \" Start ideal picture
  63 .                               \" $1 is width, $2 is height, both in inches
  64 .                               \" in ideal, however, we see two IS's for each picture,
  65 .                               \" and only the second one has the goods
  66 .nr ID 0
  67 .ie !'\\$1'' \{\
  68 .sp .3
  69 .nr ID 1
  70 .in (\\n(.lu-\\$1)/2u
  71 .ne \\$2
  72 ...\}
  73 ..
  74 .de IE                          \" End ideal picture
  75 .if \\n(ID .in
  76 .if \\n(ID .if t .sp .6
  77 ..
  78 .ds oC 255 255 255 255                  \" type color
  79 .ds oB   0   0   0   0                  \" background color
  80 .pl 4.8i                                \" page length
  81 .po .1i                                 \" left margin
  82 .ll 6.2i                                \" line length
  83 .ta 0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i
  84 .nf
  85 .ps 30p
  86 .vs 30p
  87 .fp 1 R Lucida
  88 .fp 2 I LucidaI
  89 .fp 3 B LucidaB
  90 .fp 4 BI LucidaBI
  91 .fp 5 S LucidaS
  92 .fp 6 SB LucidaSB
  93 .fp 7 SI LucidaSI
  94 .fp 8 SK LucidaSBI
  95 .fp 9 CW LucidaCW
  96 .ft B