diff options
Diffstat (limited to 'Master/texmf-dist/doc/latex/circuit-macros/examples/ex02.m4')
-rw-r--r-- | Master/texmf-dist/doc/latex/circuit-macros/examples/ex02.m4 | 54 |
1 files changed, 54 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/circuit-macros/examples/ex02.m4 b/Master/texmf-dist/doc/latex/circuit-macros/examples/ex02.m4 new file mode 100644 index 00000000000..2e5c2a6cb55 --- /dev/null +++ b/Master/texmf-dist/doc/latex/circuit-macros/examples/ex02.m4 @@ -0,0 +1,54 @@ +.PS +# ex02.m4 +cct_init + +[ + [ + for angl=0 to 315 by 45 do { + Point_(angl) + opamp(to rvec_(linewid*3/2,0)) with .Out at (0,0) } + ] + resistor(down_ dimen_ from last [].s) + diode(down_ dimen_*2/3,LE) + diode(down_ dimen_*2/3,LER) + ground(,T) +] + +[ + define(`elen_',`dimen_*3/2') # restore defaults + define(`sourcerad_',`dimen_*0.25') + leng = elen_ + define(`fromcentre',`move to C+(-elen_/2,-elen_*cosd(15)/(2*sind(15)))') + C: dot + { fromcentre() + for i = 0 to 359 by 30 do { + Point_(i); inductor + } + } + define(`elen_',leng*0.8) + { fromcentre() + for i=0 to 359 by 30 do { + Point_(i); inductor(,W) + } + } + define(`elen_',leng*0.6) + { fromcentre() + for i=0 to 359 by 30 do { + Point_(i); resistor + } + } + define(`elen_',leng*0.4) + { fromcentre() + for i=0 to 359 by 30 do { + Point_(i); capacitor(,C) + } + } + define(`elen_',leng*0.2) + { fromcentre() + for i=0 to 359 by 30 do { + Point_(i); diode + } + } + ] with .sw at last [].se+(linewid,0) + +.PE |