summaryrefslogtreecommitdiff
path: root/graphics/circuit_macros/examples/SQUID.m4
blob: 54f50f9fa6c58b062dd1f0958a1a1172143ce982 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
.PS
# SQUID.m4
cct_init

divert(-1)
divert(0)dnl

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 ->

.PE