sys/lib/tmac/tmac.pictures

   1 .de PI  \" Picture Include
   2 .       \" $1=file(page) $2=height,width,yoff,xoff $3=flags
   3 .       \" Height, width, xoff, and yoff are for the frame, flags is for the
   4 .       \" picture. Default dimensions are inches.
   5 \\X'PI:\\n(.o:\\n(.i:\\n(.l:\\n(.t:\\$1:\\$2:\\$3:'\\c
   6 ..
   7 .nr FT 0
   8 .de BP  \" Begin a Picture
   9 .       \"
  10 .       \" $1=file(page) $2=height $3=width $4=position $5=offset $6=flags $7=label
  11 .       \"
  12 .       \" Height, width, position, and offset are for the frame, flags is for
  13 .       \" the picture. The postion flag should be l, c, r, or "". Omitting the
  14 .       \" position argument is also allowed for compatibility with the original
  15 .       \" version of the macro. In that case offset is taken relative to your
  16 .       \" left margin.
  17 .if \\n(FT>1 .EP
  18 .       \" Need these when we switch environments.
  19 .nr Ov \\n(.v
  20 .nr Oi \\n(.i
  21 .nr Ol \\n(.l
  22 .       \" Remember the arguments - sometimes as both a string and number register.
  23 .nr $2 \\$2i
  24 .nr $3 \\$3i
  25 .nr $4 \\$4i
  26 .ds $4 \\$4
  27 .nr $5 \\$5i
  28 .ds $5 \\$6
  29 .ds $6 \\$7
  30 .       \" Accept a few unadvertised position flags.
  31 .if '\\*($4'L' .ds $4 l
  32 .if '\\*($4'C' .ds $4 c
  33 .if '\\*($4'R' .ds $4 r
  34 .       \" A null with more than three arguments means l.
  35 .if \\n(.$>3 .if '\\*($4'' .ds $4 l
  36 .       \" Default frame dimensions if missing, zero, or null.
  37 .if !\\n($2>0 .nr $2 3.0i
  38 .if !\\n($3>0 .nr $3 \\n(.lu-\\n(.iu-\\n($4u
  39 .if !\\n($3>0 .nr $3 \\n($2u
  40 .       \" Figure out the offset that will be used the rest of the way.
  41 .if '\\*($4'l' .nr $4 \\n($5u
  42 .if '\\*($4'c' .nr $4 (\\n(.lu-\\n(.iu-\\n($3u)/2u+\\n($5u
  43 .if '\\*($4'r' .nr $4 \\n(.lu-\\n(.iu-\\n($3u+\\n($5u
  44 .       \" If we haven't recognized the position flag assume it wasn't given and
  45 .       \" treat argument four as an offset from the left.
  46 .if !'\\*($4'l' .if !'\\*($4'c' .if !'\\*($4'r' .ds $5 \\$5
  47 .if !'\\*($4'l' .if !'\\*($4'c' .if !'\\*($4'r' .ds $6 \\$6
  48 .       \" Set increments for line length and indent.
  49 .nr Ii \\n($3u+\\n($4u+.1i
  50 .nr Il \\n(.lu-\\n(.iu-\\n($4u+.1i
  51 .       \" Set the frame type to one of:
  52 .       \"      0 - frame is as wide as a line of text - skip over it.
  53 .       \"      1 - fits in left or right margins
  54 .       \"      2 - fill with text on the right
  55 .       \"      3 - on the left
  56 .       \"      4 - or on both sides of the frame
  57 .       \"      5 - only set in EP if FT was 4 and now filling on the right.
  58 .       \" Assume the frame is as wide as a line of text, then check dimensions
  59 .       \" to see what's really true. The order of these tests is important!
  60 .nr FT 0
  61 .if \\n($4u>1.0i .nr FT 3
  62 .if \\n($4u+\\n(.iu>=\\n(.lu .nr FT 1
  63 .if \\n($3u+\\n($4u+\\n(.iu+1.0i<\\n(.lu .nr FT 2
  64 .if \\n($3u+\\n($4u<=0 .nr FT 1
  65 .if \\n(FT=2 .if \\n($4u>1.0i .nr FT 4
  66 .       \" Ask for some vertical space - labeled pictures need a little extra,
  67 .       \" margin pictures a little less.
  68 .if \\n(FT=1 .if '\\*($6'' .ne \\n($2u
  69 .if \\n(FT=1 .if !'\\*($6'' .ne \\n($2u+2v
  70 .if !\\n(FT=1 .if '\\*($6'' .ne \\n($2u+3v
  71 .if !\\n(FT=1 .if !'\\*($6'' .ne \\n($2u+5v
  72 .       \" Save our place, draw the picture, label it, and return. Need precise
  73 .       \" control of when \X'...' is put out - thus the new environment.
  74 .mk Oh
  75 .ev 1
  76 .in \\n(Oiu
  77 .ll \\n(Olu
  78 .vs \\n(Ovu
  79 .if \\n(FT=1 .sp -1v
  80 .if \\n(FT=1 .PI \\$1 \\n($2u,\\n($3u,\\n(.vu,\\n($4u t\\*($5
  81 .if !\\n(FT=1 .PI \\$1 \\n($2u,\\n($3u,\\n(.vu,\\n($4u \\*($5
  82 .in
  83 .ll
  84 .vs
  85 .ev
  86 .lt \\n($3u
  87 .tl \(ts\(ts\\h'\\n($4u+\\n(.iu'\\v'\\n($2u+1.5v'\\*($6\\v'-\\n($2u-1.5v'\\h'-\\n($4u-\\n(.iu'\(ts\(ts
  88 .lt
  89 'sp |\\n(Ohu
  90 .       \" Figure out what to do with the text that follows.
  91 .if !'\\*($6'' .nr $2 +2v
  92 .if \\n(FT=0 .sp \\n($2u+2v
  93 .if \\n(FT=1 .nr FT 0
  94 .if \\n(FT=2 'in +\\n(Iiu
  95 .if \\n(FT>2 .ll -\\n(Ilu
  96 .if \\n(FT>1 .di BB
  97 .if \\n(FT>1 .dt \\n($2u+2v+1u EP
  98 .       \" Clean things up.
  99 .rr $2
 100 .rr $3
 101 .rr $4
 102 .rm $4
 103 .rr $5
 104 .rm $5
 105 .rm $6
 106 .rr Oh
 107 .rr Oi
 108 .rr Ol
 109 .rr Ov
 110 .if \\n(FT=0 .EP
 111 ..
 112 .de EP  \" End the Picture - Normally called from a trap, although it can be used
 113 .       \" on its own to mark the end of a picture.
 114 .nr Ot 0
 115 .if \\n(.tu<\\n(.pu .nr Ot \\n(.tu
 116 .if \\n(Ot>0 .if \\n(FT=4 .nr FT 3
 117 .if \\n(FT<2 .nr Ot 0
 118 .if \\n(Ot>0 .br
 119 .if \\n(FT=5 .nr Ot 0
 120 .if \\n(FT>1 \{\
 121 .       ev 1
 122 .       eo
 123 .       br
 124 .       di
 125 .       nf
 126 .       in 0
 127 .       BB
 128 .       in
 129 .       fi
 130 .       ec
 131 .       ev
 132 .       rm BB\}
 133 .if \\n(FT=5 \{\
 134 .       nr FT 2
 135 '       sp |\\n(Nhu+1v\}
 136 .if \\n(FT=4 \{\
 137 .       mk Nh
 138 .       nr Nh -1v
 139 .       nr FT 5
 140 '       sp -\\n(dnu+1v
 141 '       in +\\n(Iiu
 142 .       ll +\\n(Ilu
 143 .       di BB
 144 .       dt \\n(dnu-2v+1u EP\}
 145 .if \\n(FT=2 'in -\\n(Iiu
 146 .if \\n(FT=3 .ll +\\n(Ilu
 147 .if \\n(FT<4 .nr FT 0
 148 .if \\n(Ot>0 .sp \\n(Otu
 149 .rr Ot
 150 .if \\n(FT=0 \{\
 151 .       rr Nh
 152 .       rr Ii
 153 .       rr Il\}
 154 ..