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
#.PS
# SQUID.m4
cct_init
[
down_
#source
S1: SQUID
"J1" at S1.J1 above rjust
"J2" at S1.J2 above ljust
S2: SQUID(3,dimen_*1.5,-120) at S1.e+(elen_,0)
"J1" at S2.J1 above rjust
"J2" at S2.J2 below ljust
"J3" at S2.J3 above ljust
arcrad = S2.C.rad*0.7
arc from S2.c+(Rect_(arcrad,-135)) to S2.c+(Rect_(arcrad,-45)) \
with .c at S2.C ->
] with .w at last [].e+(boxht,0)
