![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to tmac.pictures CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / postscript / mpictures|
Return to tmac.pictures CVS log | Up to [Research Unix] / researchv10no / cmd / postscript / mpictures |
1.1 ! root 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: ..
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.