diff options
Diffstat (limited to 'tmac/tmac.pictures')
| -rw-r--r-- | tmac/tmac.pictures | 154 |
1 files changed, 154 insertions, 0 deletions
diff --git a/tmac/tmac.pictures b/tmac/tmac.pictures new file mode 100644 index 00000000..6ff4f96e --- /dev/null +++ b/tmac/tmac.pictures @@ -0,0 +1,154 @@ +.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\} +.. |