summaryrefslogtreecommitdiff
path: root/graphics/circuit_macros/examples/dpv/QuantumDPV.m4
blob: 49ed173ffd7177daa91b9faf92ae84ac32348690 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
.PS
# QuantumDPV.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) at A2.end-(4.5*boxwid,0) \
   "svg_it(R)svg_sub(svg_psi)svg_sup(svg_pi/2,,,-1.2ex)"
  ]

#.PE
#.PS
# SQUIDDPV.m4
[
cct_init(svg_font(sans-serif,11bp__))

down_
S1: SQUID
  "J1" at S1.J1 above rjust wid 15bp__
  "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)

 command "</g>" # end font
.PE