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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
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'.
|
