summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/circuit-macros/examples/dpv/AudioDPV.m4
blob: 459e1c422dec8092c95cf4956ae722652aa9d4a2 (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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
.PS
# `AudioDPV.m4'
cct_init(svg_font(sans-serif,11bp__,2bp__))

define(`In123',`
thinlines_
     arrow <- from `$1'.In1 up 0.05 left 0.15
     "svg_it(In1)" wid 0.25 rjust above
     arrow <- left 0.15 from `$1'.In2
     "svg_it(In2)" rjust
     arrow <- from `$1'.In3 down 0.05 left 0.15
     "svg_it(In3)" rjust below
thicklines_ ')

L:[
  S: speaker
  `"speaker"' at S.s+(0,-0.2) below
  In123(S)
  thinlines_
     arrow <- from S.In4 left 0.05 up 0.15
     "svg_it(In4)" above rjust
     arrow <- from S.In5 right 0.05 up 0.15
     "svg_it(In5)" above ljust
     arrow <- from S.In6 left 0.05 down 0.15
     "svg_it(In6)" below rjust
     arrow <- from S.In7 right 0.05 down 0.15
     "svg_it(In7)" below ljust
     spline <- from S.Box.e+(0,0.05) right 0.27 up 0.10 \
      then right 0.1 up 0.2
     "svg_it(Box)" above
  thicklines_
  ]
[
  H: speaker(,,H)
  `"...(,,H)"' at H.s+(0,-0.30) below
  ] with .sw at last [].se
[
  B: bell
  `"bell"' at B.s+(0,-0.2) below
  In123(B)
  thinlines_
  arrow <- from B.Box.n+(-0.1,0) up 0.15 left 0.1 ; "svg_it(Box)" above
  arrow <- from B.Circle.n up 0.15 ; "svg_it(Circle)" above
  thicklines_
  ] with .sw at last [].se+(0.35,0)
[
  Z: buzzer
  `"buzzer"' at Z.s+(0,-0.2) below
  In123(Z)
  thinlines_
  arrow <- from Z.Box.n up 0.15 ; "svg_it(Box)" above
  thicklines_
  ] with .sw at last [].se+(0.4,0)
R:[
  Z: buzzer(,,C)
  `"buzzer(,,C)"' at Z.s+(0,-0.2) below
  In123(Z)
  thinlines_
  spline <- from 0.8<Z.Face.s,Z.Face.n> right 2*arrowht up 0.5*arrowht \
    then up 0.15 right 0.05 
    "svg_it(Face)" wid 0.5 at Here above
  thicklines_
  ] with .sw at last [].se+(0.4,0)
[
  M: microphone
  `"microphone"' wid 60bp__ at M.s+(0,-0.2) below
  In123(M)
  thinlines_
  arrow <- from M.Circle.n up 0.15 ; "svg_it(Circle)" above
  thicklines_
  ] with .sw at last [].se+(0.4,0)
[
  M: microphone(A)
  "`microphone(A)'" at M.s+(0,-0.2) #below
  thinlines_
  arrow <- from M.Head.e+(0,0.05) right 0.2; "svg_it(Head)" wid 40bp__ ljust 
  spline 0.5 <- from M.Head.b down 0.05 right 0.1 then right 0.1
  "svg_it(Head.b)" ljust
  arrow <- from M.Stand.s right 0.2; "svg_it(Stand.s)" ljust
  thicklines_
  ] with .n at last [].s+(0,-0.2)
[[
  E: earphone
  `"earphone"' at E.s+(0,-0.2) below
  In123(E)
  thinlines_
  arrow <- from E.Box.n up 0.15 left 0.15 ; "svg_it(Box)" above
  thicklines_
  ]
 [
  E: earphone(,,C)
  `"earphone(,,C)"' at E.s+(0,-0.2) below
  thinlines_
  arrow <- from E.L up 0.15 left 0.15; "svg_it(L)" rjust
  arrow <- from E.R up 0.15 right 0.15; "svg_it(R)" ljust
  "svg_it(N)" at E.N above
  "svg_it(C)" at E.C
  thicklines_
  ] with .sw at last [].se+(0.4,0)
] with .n at (0.5 between L and R,L.s)+(0.5,-0.2)

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