de PI   \" Picture Include
       \" $1=file(page) $2=height,width,yoff,xoff $3=flags
       \" Height, width, xoff, and yoff are for the frame, flags is for the
       \" picture. Default dimensions are inches.
\\X'PI:\\n(.o:\\n(.i:\\n(.l:\\n(.t:\\$1:\\$2:\\$3:'\\c
.
nr FT 0
de BP   \" Begin a Picture
       \"
       \" $1=file(page) $2=height $3=width $4=position $5=offset $6=flags $7=label
       \"
       \" Height, width, position, and offset are for the frame, flags is for
       \" the picture. The postion flag should be l, c, r, or "". Omitting the
       \" position argument is also allowed for compatibility with the original
       \" version of the macro. In that case offset is taken relative to your
       \" left margin.
if \\n(FT>1 .EP
       \" Need these when we switch environments.
nr Ov \\n(.v
nr Oi \\n(.i
nr Ol \\n(.l
       \" Remember the arguments - sometimes as both a string and number register.
nr $2 \\$2i
nr $3 \\$3i
nr $4 \\$4i
ds $4 \\$4
nr $5 \\$5i
ds $5 \\$6
ds $6 \\$7
       \" Accept a few unadvertised position flags.
if '\\*($4'L' .ds $4 l
if '\\*($4'C' .ds $4 c
if '\\*($4'R' .ds $4 r
       \" A null with more than three arguments means l.
if \\n(.$>3 .if '\\*($4'' .ds $4 l
       \" Default frame dimensions if missing, zero, or null.
if !\\n($2>0 .nr $2 3.0i
if !\\n($3>0 .nr $3 \\n(.lu-\\n(.iu-\\n($4u
if !\\n($3>0 .nr $3 \\n($2u
       \" Figure out the offset that will be used the rest of the way.
if '\\*($4'l' .nr $4 \\n($5u
if '\\*($4'c' .nr $4 (\\n(.lu-\\n(.iu-\\n($3u)/2u+\\n($5u
if '\\*($4'r' .nr $4 \\n(.lu-\\n(.iu-\\n($3u+\\n($5u
       \" If we haven't recognized the position flag assume it wasn't given and
       \" treat argument four as an offset from the left.
if !'\\*($4'l' .if !'\\*($4'c' .if !'\\*($4'r' .ds $5 \\$5
if !'\\*($4'l' .if !'\\*($4'c' .if !'\\*($4'r' .ds $6 \\$6
       \" Set increments for line length and indent.
nr Ii \\n($3u+\\n($4u+.1i
nr Il \\n(.lu-\\n(.iu-\\n($4u+.1i
       \" Set the frame type to one of:
       \"      0 - frame is as wide as a line of text - skip over it.
       \"      1 - fits in left or right margins
       \"      2 - fill with text on the right
       \"      3 - on the left
       \"      4 - or on both sides of the frame
       \"      5 - only set in EP if FT was 4 and now filling on the right.
       \" Assume the frame is as wide as a line of text, then check dimensions
       \" to see what's really true. The order of these tests is important!
nr FT 0
if \\n($4u>1.0i .nr FT 3
if \\n($4u+\\n(.iu>=\\n(.lu .nr FT 1
if \\n($3u+\\n($4u+\\n(.iu+1.0i<\\n(.lu .nr FT 2
if \\n($3u+\\n($4u<=0 .nr FT 1
if \\n(FT=2 .if \\n($4u>1.0i .nr FT 4
       \" Ask for some vertical space - labeled pictures need a little extra,
       \" margin pictures a little less.
if \\n(FT=1 .if '\\*($6'' .ne \\n($2u
if \\n(FT=1 .if !'\\*($6'' .ne \\n($2u+2v
if !\\n(FT=1 .if '\\*($6'' .ne \\n($2u+3v
if !\\n(FT=1 .if !'\\*($6'' .ne \\n($2u+5v
       \" Save our place, draw the picture, label it, and return. Need precise
       \" control of when \X'...' is put out - thus the new environment.
mk Oh
ev 1
in \\n(Oiu
ll \\n(Olu
vs \\n(Ovu
if \\n(FT=1 .sp -1v
if \\n(FT=1 .PI \\$1 \\n($2u,\\n($3u,\\n(.vu,\\n($4u t\\*($5
if !\\n(FT=1 .PI \\$1 \\n($2u,\\n($3u,\\n(.vu,\\n($4u \\*($5
in
ll
vs
ev
lt \\n($3u
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
lt
'sp |\\n(Ohu
       \" Figure out what to do with the text that follows.
if !'\\*($6'' .nr $2 +2v
if \\n(FT=0 .sp \\n($2u+2v
if \\n(FT=1 .nr FT 0
if \\n(FT=2 'in +\\n(Iiu
if \\n(FT>2 .ll -\\n(Ilu
if \\n(FT>1 .di BB
if \\n(FT>1 .dt \\n($2u+2v+1u EP
       \" Clean things up.
rr $2
rr $3
rr $4
rm $4
rr $5
rm $5
rm $6
rr Oh
rr Oi
rr Ol
rr Ov
if \\n(FT=0 .EP
.
de EP   \" End the Picture - Normally called from a trap, although it can be used
       \" on its own to mark the end of a picture.
nr Ot 0
if \\n(.tu<\\n(.pu .nr Ot \\n(.tu
if \\n(Ot>0 .if \\n(FT=4 .nr FT 3
if \\n(FT<2 .nr Ot 0
if \\n(Ot>0 .br
if \\n(FT=5 .nr Ot 0
if \\n(FT>1 \{\
       ev 1
       eo
       br
       di
       nf
       in 0
       BB
       in
       fi
       ec
       ev
       rm BB\}
if \\n(FT=5 \{\
       nr FT 2
'       sp |\\n(Nhu+1v\}
if \\n(FT=4 \{\
       mk Nh
       nr Nh -1v
       nr FT 5
'       sp -\\n(dnu+1v
'       in +\\n(Iiu
       ll +\\n(Ilu
       di BB
       dt \\n(dnu-2v+1u EP\}
if \\n(FT=2 'in -\\n(Iiu
if \\n(FT=3 .ll +\\n(Ilu
if \\n(FT<4 .nr FT 0
if \\n(Ot>0 .sp \\n(Otu
rr Ot
if \\n(FT=0 \{\
       rr Nh
       rr Ii
       rr Il\}
.

You are viewing proxied material from sdf.org. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.