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
|
.PS
# Opamp.m4
cct_init(svg_font(sans-serif,11bp__))
A: opamp
thinlines_
"`opamp'" at A.s-(0,0.25)
"Out" below at A.Out
spline <- from A.In1 left 0.1 then up 0.1 left 0.1
"In1" wid 0.25 rjust above
spline <- from A.In2 left 0.1 then down 0.1 left 0.1
"In2" rjust below
arrow <- up 0.1 right 0.1 from A.E1
"E1" ljust above
arrow <- down 0.1 right 0.1 from A.E2
"E2" ljust below
thicklines_
Point_(15)
B: opamp(,,,,PR) with .sw at A.se+(0.65,0)
thinlines_
"`Point_(15); opamp(,,,,PR)'" at B.s-(0,0.25)
spline <- right arrowht up arrowht from B.V1 then right 0.1
"V1" ljust
spline <- right arrowht down arrowht from B.V2 then right 0.1
"V2" ljust
thicklines_
Point_(90)
C: opamp with .sw at B.se+(1.05,0)
"`Point_(90); opamp'" at C.s-(0,0.25)
right_
D: opamp(,,,,T) with .sw at C.se+(0.65,0)
"`opamp(,,,,T)'" wid 0.85 at D.s-(0,0.25)
command "</g>" # end font
.PE
|