summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/circuit-macros/examples/Quantum.m4
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2019-09-05 22:33:48 +0000
committerKarl Berry <karl@freefriends.org>2019-09-05 22:33:48 +0000
commite25c6ee4ea5169bf31ab28ebddcc94c8b4992453 (patch)
tree855a21705c8e75ed71066d3e6215752d04dd43ba /Master/texmf-dist/doc/latex/circuit-macros/examples/Quantum.m4
parent1047c66359c02d8f8852e0dbdd69f5cf1cd1a76b (diff)
circuit-macros (all except boxdims.sty in doc due to generic file names)
git-svn-id: svn://tug.org/texlive/trunk@52035 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/latex/circuit-macros/examples/Quantum.m4')
-rw-r--r--Master/texmf-dist/doc/latex/circuit-macros/examples/Quantum.m431
1 files changed, 31 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/circuit-macros/examples/Quantum.m4 b/Master/texmf-dist/doc/latex/circuit-macros/examples/Quantum.m4
new file mode 100644
index 00000000000..9de7aeddab2
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/circuit-macros/examples/Quantum.m4
@@ -0,0 +1,31 @@
+.PS
+# Quantum.m4
+gen_init
+
+ boxht = 0.35
+ boxwid = boxht
+ define(`dotrad_',boxht/5)
+
+define(`Bus',`line right_ 10*boxwid `$1'
+ circle diam boxht `$2' at last line.start
+ box fill_(1) "H" at last line.start+(boxwid*3/2,0)
+ box fill_(1) "H" at last line.end-(boxwid*2.5,0) ')
+
+define(`Meter',`[ Box: box wid boxwid*3/2 fill_(1)
+ r = Box.wid/3
+ C: 0.3 between Box.s and Box.n
+ arc cw from C+(-r,0) to C+(r,0) with .c at C
+ arrow from C+(-r/4,0) to C+(0.9*r,0.9*r) ]')
+
+X: Bus(,shaded rgbstring(0.5,0.5,1) "X")
+A1: Bus(from X.start+(0,-boxht*3/2), shaded "red" "A")
+A2: Bus(from 2 between X.start and A1.start,shaded "red" "A")
+ dot(at X.start+(3*boxwid,0))
+ line to (Here,A2); dot
+ circle rad dotrad_ at A1.start+(4*boxwid,0)
+ line from last circle.s to (last circle,X); dot
+ Meter with .e at X.end
+ box wid boxwid*1.2 ht boxht*1.2 fill_(1) "$R_{\psi}^{\pi/2}$" \
+ at A2.end-(4.5*boxwid,0)
+
+.PE