diff options
author | Karl Berry <karl@freefriends.org> | 2006-01-09 23:38:21 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-01-09 23:38:21 +0000 |
commit | 215012a8d684889983ec2c0629e1c704e6853d9c (patch) | |
tree | ebf1271bd71869069824935ae8a5678745bf8bce /Master/texmf-dist/fonts/source/public/circ/cidiod.mf | |
parent | 1af3d19d6dbcbf309667d9cb4aa3cdda914914a9 (diff) |
trunk/Master/texmf-dist/fonts/source
git-svn-id: svn://tug.org/texlive/trunk@101 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/circ/cidiod.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/circ/cidiod.mf | 108 |
1 files changed, 108 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/circ/cidiod.mf b/Master/texmf-dist/fonts/source/public/circ/cidiod.mf new file mode 100644 index 00000000000..9027a14038b --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/circ/cidiod.mf @@ -0,0 +1,108 @@ +%% +%% This is file `cidiod.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% circ.dtx (with options: `csydiod') +%% CIRC is a LaTeX package to typeset circuit and optics diagrams. +%% Copyright (C) 1997,1998,2003 Sebastian Tannert and Andreas Tille +%% +%% This program is free software; you can redistribute it and/or modify +%% it under the terms of the GNU General Public License as published by +%% the Free Software Foundation; either version 2 of the License, or +%% (at your option) any later version. +%% +%% This program is distributed in the hope that it will be useful, +%% but WITHOUT ANY WARRANTY; without even the implied warranty of +%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +%% GNU General Public License for more details. +%% +%% You should have received a copy of the GNU General Public License +%% along with this program; if not, write to the Free Software +%% Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA +%% +%% For error reports concerning UNCHANGED versions of this file no +%% more than one year old, see CIRC.DVI after installation. +%% If installation fails search thru this file for 'bug'. +input csym; +designsize:=1lLE#; + +def diode = % "uberarbeiten + numeric pl; + pl:=.5(did_lt-did_wd); + z0=(0,0); + z1=z0+(pl,0); + z2=z1+(did_wd,0); + z3=z2+(pl,0); + z4-z5=z6-z7=(0,did_ht); + z1=.5[z4,z5]; + z2=.5[z6,z7]; + z8=z4+(did_zlt,0); + z9=z0+(0,thy_ht); + + z10=.35[z5,z7]; + z11=z10-(.5Dcap_spc,0); + z12=z10+(.5Dcap_spc,0); + y13=y15; y14=y16; + x13=x14; x15=x16; + y13-y14=Dcap_ht; + z11=.5[z13,z14]; + z12=.5[z15,z16]; + z17=z11-(Dcap_wd,0); + z18=z12+(Dcap_wd,0); + + pickup pensquare scaled normalline; + draw z0--z3; + draw z4--z5; + draw z1--z6--z7--cycle; +enddef; + +def Dcap = + pickup pensquare scaled normalline; + draw z17--z11; + draw z13--z14; + draw z15--z16; + draw z12--z18; +enddef; + +def led_arrows = % "uberarbeiten + numeric pl; + numeric x[],y[]; + transform arr_a,arr_b; + pickup pencircle scaled thickline; + pl:=.5(did_lt-did_wd); + z0=(0,0); + z4=z0+(pl,0); + z1=z0+(led_lt,0); + (z1-z2)=(led_wd,0) rotated led_phi; + (z1-z3)=(led_wd,0) rotated -led_phi; + arr_a:=identity rotated led_psi shifted + (z4+(led_spx+.5led_spc*cosd(led_psi),led_spy-.5led_spc*sind(led_psi))); + arr_b:=identity rotated led_psi shifted + (z4+(led_spx-.5led_spc*cosd(led_psi),led_spy+.5led_spc*sind(led_psi))); + draw (z0--z1) transformed arr_a; + draw (z0--z1) transformed arr_b; + fill (z2--z1--z3--cycle) transformed arr_a; + fill (z2--z1--z3--cycle) transformed arr_b; +enddef; + +"Diode"; +fourchars(0)(diode)(z3)(.5did_ht#,did_lt#,.5did_ht#); + +"Z-Diode"; +fourchars(4)(diode; draw z4--z8)(z3)(.5did_ht#,did_lt#,.5did_ht#); + +"LED"; +fourfourchars(8)(diode; lightarrows(.5[z1,z6]+(0,.5lLE),120))(z3) +(.5did_ht#+.5led_spy#+led_lt#*sind(led_psi),did_lt#,.5did_ht#); + +"Kapazit"&ditto&"atsdiode"; +fourchars(16)(diode; Dcap)(z3)(.5did_ht#,did_lt#,.65did_ht#); + +"Thyristor"; + +end; +%% +%% +%% End of file `cidiod.mf'. |