diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /graphics/circuit_macros/examples/Quantum.m4 |
Initial commit
Diffstat (limited to 'graphics/circuit_macros/examples/Quantum.m4')
-rw-r--r-- | graphics/circuit_macros/examples/Quantum.m4 | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/graphics/circuit_macros/examples/Quantum.m4 b/graphics/circuit_macros/examples/Quantum.m4 new file mode 100644 index 0000000000..9de7aeddab --- /dev/null +++ b/graphics/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 |