| 1 | .nr _0 \n(c. |
| 2 | .de sh \" *** section heading |
| 3 | .if (\\n(si>0)&(\\n(si<1n) \ |
| 4 | . nr si \\n(sin |
| 5 | .ce 0 |
| 6 | .@d "\\$1" +1 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 |
| 7 | .if !"\\$2"_" \ |
| 8 | \{\ |
| 9 | . ds |x \&\\$2 |
| 10 | . $p "\\*(|x" "\\*($n" \\n($0 |
| 11 | . $0 "\\*(|x" "\\*($n" \\n($0 |
| 12 | . rm |x |
| 13 | .\} |
| 14 | .nr $p 0 1 \" reset .np count |
| 15 | .. |
| 16 | .de @d \" --- change section depth |
| 17 | .if !""\\$1" \ |
| 18 | . nr $0 \\$1 |
| 19 | .if \\n($0&(\\n(.$>1) \ |
| 20 | . nr $\\n($0 \\$2 |
| 21 | .ds $n \&\" |
| 22 | .ie \\n($0>=1 \ |
| 23 | \{\ |
| 24 | . if \\n($1=0 \ |
| 25 | . nr $1 1 |
| 26 | . if (\\n(.$>=3) .if !"\\$3"-" \ |
| 27 | . nr $1 \\$3 |
| 28 | . as $n \\n($1 |
| 29 | .\} |
| 30 | .el \ |
| 31 | . nr $1 0 |
| 32 | .ie \\n($0>=2 \ |
| 33 | \{\ |
| 34 | . if \\n($2=0 \ |
| 35 | . nr $2 1 |
| 36 | . if (\\n(.$>=4) .if !"\\$4"-" \ |
| 37 | . nr $2 \\$4 |
| 38 | . as $n .\\n($2 |
| 39 | .\} |
| 40 | .el \ |
| 41 | . nr $2 0 |
| 42 | .ie \\n($0>=3 \ |
| 43 | \{\ |
| 44 | . if \\n($3=0 \ |
| 45 | . nr $3 1 |
| 46 | . if (\\n(.$>=5) .if !"\\$5"-" \ |
| 47 | . nr $3 \\$5 |
| 48 | . as $n .\\n($3 |
| 49 | .\} |
| 50 | .el \ |
| 51 | . nr $3 0 |
| 52 | .ie \\n($0>=4 \ |
| 53 | \{\ |
| 54 | . if \\n($4=0 \ |
| 55 | . nr $4 1 |
| 56 | . if (\\n(.$>=6) .if !"\\$6"-" \ |
| 57 | . nr $4 \\$6 |
| 58 | . as $n .\\n($4 |
| 59 | .\} |
| 60 | .el \ |
| 61 | . nr $4 0 |
| 62 | .ie \\n($0>=5 \ |
| 63 | \{\ |
| 64 | . if \\n($5=0 \ |
| 65 | . nr $5 1 |
| 66 | . if (\\n(.$>=7) .if !"\\$7"-" \ |
| 67 | . nr $5 \\$7 |
| 68 | . as $n .\\n($5 |
| 69 | .\} |
| 70 | .el \ |
| 71 | . nr $5 0 |
| 72 | .ie \\n($0>=6 \ |
| 73 | \{\ |
| 74 | . if \\n($6=0 \ |
| 75 | . nr $6 1 |
| 76 | . if (\\n(.$>=8) .if !"\\$8"-" \ |
| 77 | . nr $6 \\$8 |
| 78 | . as $n .\\n($6 |
| 79 | .\} |
| 80 | .el \ |
| 81 | . nr $6 0 |
| 82 | .. |
| 83 | .de sx \" *** heading up, no increment (2.1.1 -> 2.1) |
| 84 | .ce 0 |
| 85 | .ul 0 |
| 86 | .nr _0 \\n($0-1 |
| 87 | .if \\n(.$ .nr _0 +1 |
| 88 | .if \\n(.$ .nr _0 \\$1 |
| 89 | .@d \\n(_0 |
| 90 | .rr _0 |
| 91 | .$p "" "" \\n($0 |
| 92 | .nr $p 0 1 \" reset .np count |
| 93 | .. |
| 94 | .de uh \" *** unnumbered section heading |
| 95 | .$p "\\$1" |
| 96 | .$0 "\\$1" |
| 97 | .. |
| 98 | .if \n(sf<=0 \ |
| 99 | . nr sf 8 \" section font -- Times Bold |
| 100 | .if \n(sp<=0 \ |
| 101 | . nr sp 10 \" section title pointsize |
| 102 | .if \n(ss<=0 \ |
| 103 | . nr ss 12p \" section prespacing |
| 104 | .if \n(si<=0 \ |
| 105 | . nr si 0 \" section indent |
| 106 | .nr c. \n(_0 |