ttmac.twb - plan9port - [fork] Plan 9 from user space
 (HTM) git clone git://src.adamsgaard.dk/plan9port
 (DIR) Log
 (DIR) Files
 (DIR) Refs
 (DIR) README
 (DIR) LICENSE
       ---
       ttmac.twb (1878B)
       ---
            1 .de CO                                \" Set type color; no value => reset
            2 .ie '\\$1'' .ds oC \\*(pC
            3 .el \{\
            4 .ds pC \\*(oC
            5 .ds oC \\$1 \\$2 \\$3 \\$4
            6 ...\}
            7 \\X'color \\*(oC'\c
            8 ..
            9 .de BC                                \" Set background color; no value => reset
           10 .ie '\\$1'' .ds oB \\*(pB
           11 .el \{\
           12 .ds pB \\*(oB
           13 .ds oB \\$1 \\$2 \\$3 \\$4
           14 ...\}
           15 \\X'bgcolor \\*(oB'\c
           16 ..
           17 .de CL
           18 \\X'clear'\c
           19 ..
           20 .de IN                                \" Include picture $1 with ul corner at ($2,$3)
           21 .nr xc \\$2i
           22 .nr yc \\$3i
           23 \\X'picfile \\$1 \\n(xc \\n(yc'\c
           24 ..
           25 .de CW                                \" clear window ($1,$2) is ul ($3,$4) is lr, uses bg color
           26 .nr x0 \\$1i
           27 .nr y0 \\$2i
           28 .nr x1 \\$3i
           29 .nr x2 \\$4i
           30 \\X'clrwin \\n(x0 \\n(y0 \\n(x1 \\n(y1
           31 ..
           32 .de BW                                \" window border ($1,$2) is ul ($3,$4) is lr, uses fg color
           33 .nr x0 \\$1i
           34 .nr y0 \\$2i
           35 .nr x1 \\$3i
           36 .nr x2 \\$4i
           37 \\X'border \\n(x0 \\n(y0 \\n(x1 \\n(y1
           38 ..
           39 .de SL                                \" start slide, args are optional title
           40 .bp
           41 .ce 0
           42 .ft B
           43 .nf
           44 .if !'\\$1'' \{\
           45 .ps 36p
           46 .vs 36p
           47 \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
           48 ...\}
           49 .ps 30p
           50 .vs 30p
           51 ..
           52 .de PS                                \" Start pic picture
           53 .                                \" $1 is height, $2 is width, both in inches
           54 .sp .3
           55 .in (\\n(.lu-\\$2)/2u
           56 .ne \\$1
           57 ..
           58 .de PE                                \" End pic picture
           59 .in
           60 .sp .6
           61 ..
           62 .de IS                                \" Start ideal picture
           63 .                                \" $1 is width, $2 is height, both in inches
           64 .                                \" in ideal, however, we see two IS's for each picture,
           65 .                                \" and only the second one has the goods
           66 .nr ID 0
           67 .ie !'\\$1'' \{\
           68 .sp .3
           69 .nr ID 1
           70 .in (\\n(.lu-\\$1)/2u
           71 .ne \\$2
           72 ...\}
           73 ..
           74 .de IE                                \" End ideal picture
           75 .if \\n(ID .in
           76 .if \\n(ID .if t .sp .6
           77 ..
           78 .ds oC 255 255 255 255                        \" type color
           79 .ds oB   0   0   0   0                        \" background color
           80 .pl 4.8i                                \" page length
           81 .po .1i                                        \" left margin
           82 .ll 6.2i                                \" line length
           83 .ta 0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i
           84 .nf
           85 .ps 30p
           86 .vs 30p
           87 .fp 1 R Lucida
           88 .fp 2 I LucidaI
           89 .fp 3 B LucidaB
           90 .fp 4 BI LucidaBI
           91 .fp 5 S LucidaS
           92 .fp 6 SB LucidaSB
           93 .fp 7 SI LucidaSI
           94 .fp 8 SK LucidaSBI
           95 .fp 9 CW LucidaCW
           96 .ft B