diff options
Diffstat (limited to 'Master/texmf-dist/doc/latex/circuit-macros/examples/dpv/Xtest.m4')
-rw-r--r-- | Master/texmf-dist/doc/latex/circuit-macros/examples/dpv/Xtest.m4 | 58 |
1 files changed, 58 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/circuit-macros/examples/dpv/Xtest.m4 b/Master/texmf-dist/doc/latex/circuit-macros/examples/dpv/Xtest.m4 new file mode 100644 index 00000000000..67580438164 --- /dev/null +++ b/Master/texmf-dist/doc/latex/circuit-macros/examples/dpv/Xtest.m4 @@ -0,0 +1,58 @@ +.PS +# test.m4 +gen_init + +divert(-1) + +divert(0)dnl + +gs = 0.1 +gw = 3 +gh = 3 +define grid {($1*gs,$2*gs)} +B: box invis wid gw+2 ht gh+2 with .c at (0,0) +bix = gw/gs/2 +G:[ +C: 0,0 +for i=-bix to bix do { line wid 0.4 outlined "gray" from grid(-bix,i) right gw } +for i=-bix to bix by 5 do { sprintf("%g",i) at grid(-bix,i) rjust } +for j=-bix to bix do { line wid 0.4 outlined "gray" from grid(j,-bix) up gh } +for j=-bix to bix by 5 do { sprintf("%g",j) at grid(j,-bix) below } + + line from grid(-bix,0) right gw + line from grid(0,-bix) up gh +] with .C at B + +textoffset = 0 +xwid = 0.71; svg_font(Times,72bp__) +#xwid = 0.65; svg_font(sans-serif,72bp__) +#xwid = 0.64; svg_font(Arial,1) +#xwid = 0.64; svg_font(Helvetica,1) +#xwid = 0.54; svg_font(Courier,1) +#xwid = 0.67; svg_font(Cursive,1) +#xwid = 0.64; svg_font(Verdana,1) +#xwid = 0.70; svg_font(Georgia,1) +#xwid = 0.70; svg_font(Palatino,1) +#xwid = 0.70; svg_font(Garamond,1) +#xwid = 0.70; svg_font(Bookman,1) +##xwid = 0.70; svg_font(Comic Sans MS,1) +#xwid = 0.55; svg_font(Trebuchet MS,1) +#xwid = 0.78; svg_font(Arial Black,1) +#xwid = 0.49; svg_font(Impact,1) +[ +C: 0,0 + "X" wid xwid at grid(0,0) above ljust ; showbox_(last "") + "X" wid xwid at grid(0,0) below ljust ; showbox_(last "") + "X" wid xwid at grid(0,0) above rjust ; showbox_(last "") + "X" wid xwid at grid(0,0) below rjust ; showbox_(last "") +] with .C at G.C +[ + Q: box wid gw ht gh "X" ljust "Y" rjust "Z" + line from Q.n to Q.s; line from Q.w to Q.e +] with .w at B.e + + "X" wid xwid at G.n above; showbox_(last "") + + + command "</g>" +.PE |