diff options
Diffstat (limited to 'graphics/circuit_macros/examples/svg/fetSVG.m4')
-rw-r--r-- | graphics/circuit_macros/examples/svg/fetSVG.m4 | 152 |
1 files changed, 152 insertions, 0 deletions
diff --git a/graphics/circuit_macros/examples/svg/fetSVG.m4 b/graphics/circuit_macros/examples/svg/fetSVG.m4 new file mode 100644 index 0000000000..2393513219 --- /dev/null +++ b/graphics/circuit_macros/examples/svg/fetSVG.m4 @@ -0,0 +1,152 @@ +.PS +# `fetSVG.m4' +cct_init(svg_font(Times,11bp__)) +dwn = 0.8 +rgt = 0.9 + +dnl `IRF4905(linespec,R)' +define(`IRF4905', + `[ ifelse(`$1',,,`eleminit_(`$1')') + Q: mosfet(,`$2',LdPzEDSQdB,) ifelse(`$1',,` + S: Q.tr_xy(-4,-2); line from Q.tr_xy(-2,-2) to S + D: Q.tr_xy( 4,-2); line from Q.tr_xy(2,-2) to D', + `with .Diode.c at last line.c + S: last line.start; D: last line.end; line from S to D ') + G: Q.G + circle rad 5*dimen_/10 at Q.tr_xy(0,1) ]') + +define(`rmove',0.75) +define(`dir_',`right_') + +dir_ + {j_fet(right_ dimen_,,,E) + `"j_fet(right_ dimen_,,,E)"' wid 1.5 at last [].s+(0.0,-0.05) below + "G" at last [].G rjust above + "S" at last [].S rjust + "D" at last [].D ljust + } + + {move down_ dwn; dir_ + j_fet(,,P,) + `"j_fet(,,P,)"' at last [].s+(0,-0.05) below + "G" at last [].G rjust + "S" at last [].S rjust + "D" at last [].D ljust + } + + move right_ 1.35; dir_ + {e_fet(,R,,) + `"e_fet(,R,,)"' at last [].s+(0,-0.2) below + "G" at last [].G rjust + "S" at last [].S rjust + "D" at last [].D ljust + } + + {move down_ dwn; dir_ + e_fet(,,P,) + `"e_fet(,,P,)"' at last [].s+(0,-0.05) below} + + move right_ 1; dir_ + {d_fet(,,,) + `"d_fet(,,,)"' at last [].s+(0,-0.05) below} + + {move down_ dwn; dir_ + d_fet(,,P,) + `"d_fet(,,P,)"' at last [].s+(0,-0.05) below} + + move right_ 1; dir_ + {e_fet(,,,S) + `"e_fet(,,,S)"' at last [].s+(0,-0.05) below} + + {move down_ dwn; dir_ + e_fet(,,P,S) + `"e_fet(,,P,S)"' at last [].s+(0,-0.05) below} + + move right_ 1; dir_ + {d_fet(,,,S) + `"d_fet(,,,S)"' at last [].s+(0,-0.05) below} + + {move down_ dwn; dir_ + d_fet(,,P,S) + `"d_fet(,,P,S)"' at last [].s+(0,-0.05) below} +right_ +{ [ + c_fet(,,,) + `"c_fet(,,,)"' at last [].s+(0,-0.05) below + move right rgt from last [].e + c_fet(,,P) + `"c_fet(,,P)"' at last [].s+(0,-0.05) below + ] with .n at 5th last [].s+(0,-0.3) + } +move down 1; right_ +[ + linewid = linewid*1.2 + + Q1: mosfet(,,dGSDF,) + { "`mosfet'(,,dGSDF,)" at last [].s+(0,-0.1) below wid 1.3 + thinlines_ + arrow <- down .05 left .15 from (Q1.G.x,Q1.G.y-0.05) + "dG" rjust + arrow <- down .10 left .30 from Q1.Channel.start+(.15,0) + "F" rjust + arrow <- down .05 left .15 from (Q1.S.x,Q1.S.y+0.05) + "S" rjust + arrow <- down .05 right .15 from (Q1.D.x,Q1.D.y+0.05) + "D" ljust + thicklines_ } + + move right_ rmove + Q2: mosfet(,,uHSDF,) + {"`...'(,,uHSDF,)" at last [].s+(0,-0.15) below + thinlines_ + arrow <- down .05 left .15 from (Q2.G.x,Q2.G.y-0.05) + "uH" rjust + thicklines_ } + + move right_ rmove + Q3: mosfet(,,LEDSQuB,) + {"`...'(,,LEDSQuB,)" at last [].s+(0,-0.15) below + thinlines_ + arrow <- down .05 left .15 from (Q3.G.x,Q3.G.y-0.05) + "L" rjust + arrow <- down .13 left .30 from Q3.Channel.start+(.12,0) + "E" rjust + arrow <- down .05 left .10 from Q3.S+(.06,0) + "Q" rjust + arrow <- down .08 right .24 from (Q3.B.x,Q3.B.y+0.175) + "uB" ljust + thicklines_ } + + move right_ rmove + Q4: mosfet(,,LEDSuB) + {`"...(,,LEDSuB)"' at last [].s+(0,-0.15) below + "G" at last [].G rjust + "S" at last [].S rjust + "D" at last [].D ljust + "B" at last [].B below + } + + move right_ rmove + Q5: mosfet(,,ZSDFdT,) + {"`...'(,,ZSDFdT,)" at last [].s+(0,-0.05) below + thinlines_ + arrow <- down .08 left .08 from (Q5.S.x,Q5.S.y+0.12) + "Z" rjust + arrow from last arrow.end to Q5.Channel.c+(0.05,0) + arrow from last arrow.start to (Q5.D.x,Q5.D.y+.05) + arrow <- down .08 right .24 from (Q5.G.x,Q5.G.y-0.02) + "dT" ljust + thicklines_ } + + move right_ rmove + up_ + Q6: IRF4905 with .c at Here + {`"IRF4905"' at Q6.s+(0,-0.15) below + "G" at Q6.G rjust + "D" wid 0.1 at Q6.D ljust above + "S" at Q6.S ljust below + } + ] with .n at last [].s+(0,-.2) + + command "</g>" # end font +.PE |