summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/circuit-macros/examples/dpv/Xtest.m4
diff options
context:
space:
mode:
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.m458
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