diff options
Diffstat (limited to 'Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex04SVG.m4')
-rw-r--r-- | Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex04SVG.m4 | 61 |
1 files changed, 61 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex04SVG.m4 b/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex04SVG.m4 new file mode 100644 index 00000000000..366cf24c05e --- /dev/null +++ b/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex04SVG.m4 @@ -0,0 +1,61 @@ +.PS +# ex04.m4 +cct_init(svg_font(sans-serif,10bp__)) + +[ +pushdef(`elen_',`dimen_') # short elements +pushdef(`sourcerad_',`dimen_*0.2') +#linewid = 0.85 +linewid = 0.6 + +Ct:dot + Point_(-60); capacitor(,C); dlabel(0.14,0.14,,,C`'svg_sub(3)) +Cr:dot + left_; capacitor(,C); dlabel(0.14,0.14,C`'svg_sub(2),,) +Cl:dot + down_; capacitor(from Ct to Cl,C); dlabel(0.14,-0.10,C`'svg_sub(1),,) + +T:dot(at Ct+(0,elen_)) + inductor(from T to Ct); dlabel(0.12,-0.1,,,L`'svg_sub(1)) + + Point_(-30); inductor(from Cr to Cr+vec_(elen_,0)) + dlabel(0,-0.07,,L`'svg_sub(3),) +R:dot +L:dot( at (Cl-(Cos(30)*(elen_),0),R) ) + + inductor(from L to Cl); dlabel(-0.1,-0.1,L`'svg_sub(2),,,X) + + right_; resistor(from L to R); rlabel(,R`'svg_sub(2),) + move down 0.3 + + resistor(from T to R); dlabel(0,0.15,,R`'svg_sub(3),) + b_current(y,ljust above) + + line from L to 0.2<L,T> + source(to 0.5 between L and T); dlabel(sourcerad_+0.07,0.1,-,,+) + dlabel(0,sourcerad_+0.07,,u,) + resistor(to 0.8 between L and T); dlabel(0,0.15,,R`'svg_sub(1),) + line to T + ] +popdef(`elen_') +popdef(`sourcerad_') + +[ + Point_(225) +{B1: ebox ; b_current; dlabel(dimen_*0.4,-0.1,i`'svg_sub(1)) + dot + B4: ebox(to rvec_(rp_len,0)); b_current(,,,E); dlabel(dimen_*0.4,-0.1,,,i`'svg_sub(4)) } + Point_(-45) + B2: ebox ; b_current; dlabel(dimen_*0.4, 0.1,i`'svg_sub(2)) + dot + B7: ebox ; b_current; dlabel(dimen_*0.4, 0.1,i`'svg_sub(7)) + B3: ebox(from B1.end to B2.end); b_current; dlabel(dimen_*0.4,0.1,i`'svg_sub(3)) + dot(at (B1.start,B7.end)) +{B5: ebox(to B1.end); b_current; dlabel(dimen_*0.4,-0.09,i`'svg_sub(5))} +{B6: ebox(to B2.end); b_current; dlabel(dimen_*0.4, 0.09,i`'svg_sub(6))} +{B8: ebox(right_ to B4.end); b_current; dlabel(dimen_*0.4, 0.1,i`'svg_sub(8))} + B9: ebox(left_ to B7.end); b_current; dlabel(dimen_*0.4,-0.1,i`'svg_sub(9)) + ] with .w at last [].e+(0.5,0) + + command "</g>" # end font +.PE |