tmac/tmac.lj4

   1 .nr _C \n(.C
   2 .cp 0
   3 .ftr CW CR
   4 .ftr C CR
   5 .ftr CX CBI
   6 .ftr H UR
   7 .ftr HR UR
   8 .ftr HB UB
   9 .ftr HBI UBI
  10 .ftr HI UI
  11 .ftr HO UI
  12 .ftr HX UBI
  13 .\" This is designed so that \(ul, \(rn and \(br form corners.
  14 .if !c\[br] .char \[br] \Z'\v'.25m'\D'R .04m -1m''
  15 .if !c\[ru] .char \[ru] \Z'\v'-.02m'\D'R .54m .04m''\h'.5m'
  16 .if !c\[rn] .char \[rn] \Z'\v'-.77m'\D'R .54m .04m''\h'.5m'
  17 .if !c\[ul] .char \[ul] \Z'\v'.23m'\D'R .54m .04m''\h'.5m'
  18 .cp \n(_C