summaryrefslogtreecommitdiff
path: root/graphics/circuit_macros/examples/ex06.m4
blob: 4f6986a1337c4babe6173e5accf8d2d5c1c62c26 (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
55
56
57
58
59
60
61
62
63
64
65
66
67
.PS
# ex06.m4
gen_init

F: box invis wid 1.6i ht 1.8i
E: box invis wid F.wid ht F.ht
G: box invis wid 1i ht F.ht

  ell = F.ht-0.6i
  r = 0.3i
  offset = 8bp__
  hatch = 0.1i
  dhs = hatch * sqrt(2)
  qmell = F.ht - ell
  kwid = F.wid-qmell-r

  box wid G.e.x-F.w.x ht F.ht with .sw at F.sw thick linethick*3/2
  Loopover_(`B',
   `line from B.ne to B.se thick linethick*3/2
    B`'T: B.se + (-qmell,qmell)
    line from (B.w,B`'T) to B`'T chop 0 chop -offset
    line from B`'T up ell chop -offset chop 0
    line from B`'T + (-r,0) up ell
    line dashed from B`'T to B.se
    "\large $0$" at B`'T + (-r/2,ell/2)
    "\large $0$" at B`'T + (qmell/2,ell/2)
    "$t$" at (B`'T,B.n) + (-offset/2,offset)
    sprintf("$\overbrace{\phantom{\hbox to %gin{}}}^{\hbox{$k$}}$",kwid) \
      at B.nw + (kwid/2,0) above
    thinlines_
    for x = hatch to B`'T.x-B.w.x-r by hatch do {line down ell from B.nw+(x,0)}
    for y = dhs to qmell by dhs do {line up y right y from (B.w,B`'T)+(0,-y)}
    for x = y-qmell to B.wid-qmell*2 by dhs do {
      line up qmell right qmell from B.sw+(x,0) }
    for x = last line.start.x-B.w.x+dhs to B.wid by dhs do {
      line up (B.wid-x)/2 right (B.wid-x)/2 from B.sw+(x,0) }
    thicklines_
   ',F,E)

  line from (G.w,ET) right G.wid
  line from ET + (0,r) left ET.x-E.w.x

  thinlines_
  for y = hatch to r by hatch do { line left r from ET+(0,r-y) }
  for x = dhs to G.wid by dhs do {
    line left x down x from G.nw+(x,0) }
  for y=x-G.wid to G.ht-G.wid by dhs do {
    line left G.wid down G.wid from G.ne+(0,-y) }
  for x = y-(G.ht-G.wid) to G.wid by dhs do {
    line right G.wid-x up G.wid-x from G.sw+(x,0) }
  thicklines_

  "$q$" at F.sw + (-offset,offset/3)
  "$\ell$" at (F.w,FT) + (-offset,offset/3)

  "$n{+}p{+}m$" at G.ne + (0,offset)
  
  Loopover_(`B',`"\Large $B$" ht 0.2 with .n at B.s + (0,-offset/2)',F,E,G)

                           # extra left brace to avoid a psfrag problem (bug?)
  sprintf(\
   "$\vphantom{\{}\left.\vrule height %gin depth0pt width0pt\right\}r$",r/2) \
   at ET + (offset,r/2)

#  Adjust the bounding box without using s_box:
  move from F.nw+(-12bp__,21bp__) to G.se+(20bp__,-15bp__)
.PE