diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/circ/cirest.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/circ/cirest.mf | 740 |
1 files changed, 740 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/circ/cirest.mf b/Master/texmf-dist/fonts/source/public/circ/cirest.mf new file mode 100644 index 00000000000..a08e44db056 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/circ/cirest.mf @@ -0,0 +1,740 @@ +%% +%% This is file `cirest.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% circ.dtx (with options: `csyrest') +%% 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:=.5lLE#; + +def gaslamp = + z0=(0,0); + z4=z0+(.5,0)*lLE; + y4=y3; + x2=x1; + x3=x4+3lLE; + y2=y1+2lLE; + y4=.5[y1,y2]; + x1=.5[x4,x3]; + + x5=x0+1.1lLE; + y5=y0; + x7=x6=x5; y7-y6=.5lLE; + .5[y7,y6]=y0; + + y8=y9=y0; + x8=x0+4lLE; + + x9=x8-1.1lLE; + + pickup pencircle scaled normalline; + draw superellipse(z3,z2,z4,z1,.75); + draw z0--z5; + draw z6--z7; + draw z8--z9; + pickup pencircle scaled .3lLE; + drawdot z9; +enddef; + +def switch = %"uberarbeiten + numeric pl; + pl:=swt_lt*swt_dis; + sl:=(1-2swt_dis)*swt_lt; + z0=(0,0); + z1=z0+(pl,0); + z2=z1+((sl,0) rotated swt_phi); + z3=z1+(swt_ind*sl,0); + z4=z0+(swt_lt,0); + z5=z3+(0,swt_slt); + pickup pensquare scaled normalline; + draw z0--z1--z2; + draw z3--z4; + draw z3--z5; +enddef; + +def dswitch = + z0=(0,0); + z1=dsw_t[z0,z0+(dsw_wd,0)]; + x2=x3=x4=x5=x0+((1-dsw_c)*dsw_wd); + y0=.5[y2,y3]=.5[y4,y5]; + y2-y3=dsw_ht; + y2-y4=dsw_cc*dsw_ht; + y2=y6; y3=y7; + x6-x3=x7-x3=dsw_c*dsw_wd; + x8=x1+dsw_ov+((1-dsw_c-dsw_t)*dsw_wd); + y8=sind(dsw_phi)*x8/cosd(dsw_phi); + pickup pensquare scaled normalline; + draw z0--z1--z8; + draw z4--z2--z6; + draw z5--z3--z7; +enddef; + +def circle = % "uberarbeiten + numeric pl; + pl:=.5cir_lt-cir_ht; + z0=(0,0); + z1=z0+(pl,0); + z2=z0+(.5cir_lt,0); + z3=z1+(2cir_ht,0); + z4=z3+(pl,0); + pickup pensquare scaled normalline; + draw z0--z1; + draw z3--z4; + pickup pencircle scaled thickline; + draw fullcircle scaled 2cir_ht shifted z2; +enddef; + +def lamp = + circle + z10-z11=(2cir_ht,0) rotated 45; + z12-z13=(2cir_ht,0) rotated -45; + .5[z10,z11]=z2=.5[z12,z13]; + pickup pencircle scaled normalline; + draw z10--z11; + draw z12--z13; +enddef; + +def circle_var = + circle; + pickup pencircle scaled thinline; + noarrowTF; + arrow(z2,cir_ara,cir_arb,cir_phi,arr_lt,arr_phi)(); +enddef; + +def usource = %"uberarbeiten + numeric pl; + pl:=.5(uso_lt-uso_spc); + z0=(0,0); + z1=z0+(pl,0); + z2=z1+(uso_spc,0); + z3=z2+(pl,0); + pickup pensquare scaled normalline; + draw z0--z1; + draw z2--z3; + z1=.5[z4,z5]; x4-x5=0; y5-y4=uso_pls; + z2=.5[z6,z7]; x6-x7=0; y7-y6=uso_min; + pickup pensquare scaled thickline; + draw z4--z5; + draw z6--z7; +enddef; + +def usource_var = + usource; + noarrowTF; + pickup pencircle scaled thinline; + arrow(.5[z1,z2],uso_ara,cir_arb,uso_phi,arr_lt,arr_phi)(); +enddef; + +def isource = %"uberarbeiten + numeric pl; + pl:=.5(iso_lt-(4-iso_dis)*iso_rad); + z0=(0,0); + z1=z0+(pl,0); + z2=z1+(iso_rad,0); + z3=z2+((2-iso_dis)*iso_rad,0); + z4=z3+(iso_rad,0); + z5=z4+(pl,0); + pickup pensquare scaled normalline; + draw z0--z1; + draw z4--z5; + pickup pencircle scaled thickline; + draw fullcircle scaled (2*iso_rad) shifted z2; + draw fullcircle scaled (2*iso_rad) shifted z3; +enddef; + +def isource_var = + isource; + noarrowTF; + pickup pencircle scaled thinline; + arrow(.5[z2,z3],iso_ara,iso_arb,iso_phi,arr_lt,arr_phi)(); +enddef; + +def value = % "uberarbeiten + z0=(0,0); + z1=z0+(val_lt,0); + pickup pensquare scaled normalline; + draw z0--z1; + z2=val_lft[z0,z1]; + z3=val_rht[z0,z1]; + triangle(z2,abs(z3-z2),val_phi,0); +enddef; + +def coil = %"uberarbeiten + numeric pl; + pl:=.5(coi_lt-2coi_num*coi_rad); + z0=(0,0); + z1=z0+(pl,0); + z2=z1+(coi_rad,0); + for m=1 upto coi_num-1: z[m+2]=z[m+1]+(2coi_rad,0); endfor; + z[2+coi_num]=z[1+coi_num]+(coi_rad,0); + z[3+coi_num]=z[2+coi_num]+(pl,0); + pickup pensquare scaled normalline; + draw z0--z1; + draw z[2+coi_num]--z[3+coi_num]; + pickup pencircle scaled normalline; + for m=1 upto coi_num: draw halfcircle scaled 2coi_rad shifted z[m+1]; endfor; +enddef; + +def crystal = %"uberarbeiten + pickup pensquare scaled normalline; + numeric pl; + pl:=.5(cry_lt-2cry_spc-cry_wd); + z0=(0,0); z1=z0+(pl,0); + z2=z1+(cry_spc,0); + z3=z2+(cry_wd,0); + z4=z3+(cry_spc,0); + z5=z4+(pl,0); + z6-z7=z8-z9=z10-z11=z12-z13=(0,cry_ht); + z2=.5[z6,z7]; z3=.5[z8,z9]; z1=.5[z10,z11]; z4=.5[z12,z13]; + draw z0--z1; draw z4--z5; draw z10--z11; draw z12--z13; + draw z7--z9--z8--z6--cycle; +enddef; + +def inout = % "uberarbeiten + z0=(ioc_lt,0); + pickup pensquare scaled normalline; + z2=z0+(ioc_lt,0); + lft(z1)=z0+(.5ioc_dia,0); + draw z1--z2; +enddef; + +def minout = + z0=(0,0); + z1=z0+(ioc_lt,0); + pickup pensquare scaled normalline; + arrow(z0,0,ioc_lt,180,ioc_arr,ioc_phi)(pickup pencircle scaled normalline); +enddef; + +def ground = % Masse z0 z11 + z0=(0,0); x1=x0=x2=x3; + y0-y1=gnd_ht; + y1-y2=y2-y3=gnd_spc; + y4=y1=y10; y2=y6; y3=y8; + z1=.5[z4,z5]; x5-x4=gnd_wd; + z1=.5[z10,z11]; x11-x10=GND_wd; + z2=.5[z6,z7]; x7-x6=gnd_wd*gnd_q; + z3=.5[z8,z9]; x9-x8=gnd_wd*gnd_q*gnd_q*gnd_q; +enddef; + +"Spule"; +fourchars(0)(coil)(z[3+coi_num])(coi_ht#,coi_lt#,0); + +"Quarz"; +twochars(4)(crystal)(.5cry_ht#,cry_lt#,.5cry_ht#); + +"Lampe"; +twochars(6)(lamp)(cir_ht#,cir_lt#,cir_ht#); + +"Kreise mit Anschl"&ditto&"ussen"; +twochars(8)(circle)(cir_ht#,cir_lt#,cir_ht#); + +"Kreise mit Anschl"&ditto&"ussen variabel"; +twochars(10)(circle_var)(cir_ht#,cir_lt#,cir_ht#); + +"Stromquelle"; +twochars(12)(isource)(iso_ht#,iso_lt#,iso_ht#); + +"Stromquelle variabel"; +twochars(14)(isource_var)(iso_ht#,iso_lt#,iso_ht#); + +"Spannungsquelle"; +fourchars(16)(usource)(z3)(uso_ht#,uso_lt#,uso_ht#); + +"Spannungsquelle variabel"; +fourchars(20)(usource_var)(z3)(uso_ht#,uso_lt#,uso_ht#); + +"Schalter"; +twochars(24)(switch)(swt_ht#,swt_lt#,0); + +"Umschalter"; +eightchars(32)(dswitch)(dsw_wd#,.5dsw_ht#,.5dsw_ht#,0); + +"Stromquelle variante"; +twochars(44)(circle; + pickup pencircle scaled normalline; + draw z1--z3;)(cir_ht#,cir_lt#,cir_ht#); + +"Spannungsquelle variante"; +twochars(46)(circle; + pickup pencircle scaled normalline; + draw (z1--z3) rotatedaround (z2,90);)(cir_ht#,cir_lt#,cir_ht#); + +"Gas-Lamp"; +fourchars(40)(gaslamp)(z0)(1.5lLE#,4lLE#,1.5lLE#); + +"Stromquelle variante"; +twochars(44)(circle; + pickup pencircle scaled normalline; + draw z1--z3;)(cir_ht#,cir_lt#,cir_ht#); + +"Spannungsquelle variante"; +twochars(46)(circle; + pickup pencircle scaled normalline; + draw (z1--z3) rotatedaround (z2,90);)(cir_ht#,cir_lt#,cir_ht#); + +"Anschl"&ditto&"usse Pfeil"; +fourchars(232) + (minout;)(z1)(.5ioc_ht#,2ioc_lt#,.5ioc_ht#); + +"Anschl"&ditto&"usse leer"; +fourchars(240) + (inout; + pickup pencircle scaled thinline; + draw fullcircle scaled ioc_dia shifted z0; + )(z2)(.5ioc_ht#,2ioc_lt#,.5ioc_ht#); + +"Anschl"&ditto&"usse voll"; +fourchars(244) + (inout; + pickup pencircle scaled ioc_dia; + draw z0; + )(z2)(.5ioc_ht#,2ioc_lt#,.5ioc_ht#); + +"Str"&ditto&"ome"; +fourchars(248)(value;)(z1)(val_ht#,val_lt#,val_ht#); + +"wwire half R"; +beginchar(112,.5lLE#,0pt,0pt); + z0=(0,0); + y4-y3=y2-y1=ww_spc; + x3-x1=.5lLE; + x0=x1=x2; + x3=x4; + y0=.5[y1,y2]=.5[y3,y4]; + pickup pensquare scaled normalline; + draw z1--z3; + draw z2--z4; +endchar; + +"wwire R"; +beginchar(113,1lLE#,0pt,0pt); + z0=(0,0); + y4-y3=y2-y1=ww_spc; + x3-x1=1lLE; + x0=x1=x2; + x3=x4; + y0=.5[y1,y2]=.5[y3,y4]; + pickup pensquare scaled normalline; + draw z1--z3; + draw z2--z4; +endchar; + +"wwire half L"; +beginchar(114,.5lLE#,0pt,0pt); + z0=(0,0); + y4-y3=y2-y1=ww_spc; + x3-x1=.5lLE; + x0=x3=x4; + x1=x2; + y0=.5[y1,y2]=.5[y3,y4]; + pickup pensquare scaled normalline; + draw z1--z3; + draw z2--z4; +endchar; + +"wwire half U"; +beginchar(115,0pt,.5lLE#,0pt); + z0=(0,0); + x4-x3=x2-x1=ww_spc; + y3-y1=.5lLE; + y0=y1=y2; + y3=y4; + x0=.5[x1,x2]=.5[x3,x4]; + pickup pensquare scaled normalline; + draw z1--z3; + draw z2--z4; +endchar; + +"wwire U"; +beginchar(116,0pt,1lLE#,0pt); + z0=(0,0); + x4-x3=x2-x1=ww_spc; + y3-y1=1lLE; + y0=y1=y2; + y3=y4; + x0=.5[x1,x2]=.5[x3,x4]; + pickup pensquare scaled normalline; + draw z1--z3; + draw z2--z4; +endchar; + +"wwire half D"; +beginchar(117,0pt,0pt,.5lLE#); + z0=(0,0); + x4-x3=x2-x1=ww_spc; + y3-y1=.5lLE; + y0=y3=y4; + y1=y2; + x0=.5[x1,x2]=.5[x3,x4]; + pickup pensquare scaled normalline; + draw z1--z3; + draw z2--z4; +endchar; + +"dashed halfline R"; +beginchar(120,.5lLE#,0pt,0pt); + z0=(0,0); + z1=z0+(.25lLE,0); + pickup pensquare scaled normalline; + draw z0--z1; +endchar; + +"dashed line R"; +beginchar(121,1lLE#,0pt,0pt); + z0=(0,0); + z1=z0+(1lLE,0); + z2=.25[z0,z1]; + z3=.75[z0,z1]; + pickup pensquare scaled normalline; + draw z2--z3; +endchar; + +"dashed halfline L"; +beginchar(122,.5lLE#,0pt,0pt); + z0=(0,0); + z1=z0-(.25lLE,0); + pickup pensquare scaled normalline; + draw z0--z1; +endchar; + +"dashed halfline U"; +beginchar(123,0pt,.5lLE#,0pt); + z0=(0,0); + z1=z0+(0,.25lLE); + pickup pensquare scaled normalline; + draw z0--z1; +endchar; + +"dashed line U"; +beginchar(124,0pt,1lLE#,0pt); + z0=(0,0); + z1=z0+(0,1lLE); + z2=.25[z0,z1]; + z3=.75[z0,z1]; + pickup pensquare scaled normalline; + draw z2--z3; +endchar; + +"dashed halfline D"; +beginchar(125,0pt,0pt,.5lLE#); + z0=(0,0); + z1=z0-(0,.25lLE); + pickup pensquare scaled normalline; + draw z0--z1; +endchar; + +"Linie horizontal halb R"; +beginchar(128,.5lLE#,0pt,0pt); + z0=(0,0); + z1=z0+(.5lLE,0); + pickup pensquare scaled normalline; + draw z0--z1; +endchar; + +"Linie horizontal R"; +beginchar(129,1lLE#,0pt,0pt); + z0=(0,0); + z1=z0+(1lLE,0); + pickup pensquare scaled normalline; + draw z0--z1; +endchar; + +"Linie horizontal halb L"; +beginchar(130,.5lLE#,0pt,0pt); + z0=(0,0); + z1=z0-(.5lLE,0); + pickup pensquare scaled normalline; + draw z0--z1; +endchar; + +"Linie vertikal halb U"; +beginchar(131,0pt,.5lLE#,0pt); + z0=(0,0); + z1=z0+(0,.5lLE); + pickup pensquare scaled normalline; + draw z0--z1; +endchar; + +"Linie vertikal U"; +beginchar(132,0pt,1lLE#,0pt); + z0=(0,0); + z1=z0+(0,1lLE); + pickup pensquare scaled normalline; + draw z0--z1; +endchar; + +"Linie vertikal halb D"; +beginchar(133,0pt,0pt,.5lLE#); + z0=(0,0); + z1=z0-(0,.5lLE); + pickup pensquare scaled normalline; + draw z0--z1; +endchar; + +"B"&ditto&"undel horizontal"; +beginchar(134,0,.8bnd_lt#,0pt); + z0=(0,0); + z0=.5[z2,z3]; + z3-z2=(bnd_lt,0) rotated bnd_phi; + pickup pencircle scaled thinline; + draw z2--z3; +endchar; + +"B"&ditto&"undel vertikal"; +beginchar(135,.8bnd_lt#,0pt,0pt); + z0=(0,0); + z0=.5[z2,z3]; + z3-z2=(bnd_lt,0) rotated (90-bnd_phi); + pickup pencircle scaled thinline; + draw z2--z3; +endchar; + +"Linie fett horizontal R"; +beginchar(136,.5lLE#,0pt,0pt); + z0=(0,0); + z1=z0+(.5lLE,0); + pickup pensquare scaled 2normalline; + draw z0--z1; +endchar; + +"Linie fett horizontal R"; +beginchar(137,1lLE#,0pt,0pt); + z0=(0,0); + z1=z0+(1lLE,0); + pickup pensquare scaled 2normalline; + draw z0--z1; +endchar; + +"Linie fett horizontal halb L"; +beginchar(138,.5lLE#,0pt,0pt); + z0=(0,0); + z1=z0-(.5lLE,0); + pickup pensquare scaled 2normalline; + draw z0--z1; +endchar; + +"Linie fett vertikal halb U"; +beginchar(139,0pt,.5lLE#,0pt); + z0=(0,0); + z1=z0+(0,.5lLE); + pickup pensquare scaled 2normalline; + draw z0--z1; +endchar; + +"Linie fett vertikal U"; +beginchar(140,0pt,1lLE#,0pt); + z0=(0,0); + z1=z0+(0,1lLE); + pickup pensquare scaled 2normalline; + draw z0--z1; +endchar; + +"Linie fett vertikal halb D"; +beginchar(141,0pt,0pt,.5lLE#); + z0=(0,0); + z1=z0-(0,.5lLE); + pickup pensquare scaled 2normalline; + draw z0--z1; +endchar; + +"Oscillograph"; +beginchar(142,osc_dia#,.5osc_dia#,.5osc_dia#); + z0=(0,0); + z1=z0; + z5=.5[z1,z3]=.5[z2,z4]; + x2=x4; + y1=y3; + x3-x1=y4-y2=osc_dia; + .5osc_gt+osc_spc+osc_stm=.5osc_dia; + osc_stm=osc_t*osc_gt; + z6=z1+(osc_stm,0); + z7=z2+(0,osc_stm); + z8=z3+(-osc_stm,0); + z9=z4+(0,-osc_stm); + z6=.5[z10,z11]; x10=x11; x16-x17=y14-y15=x12-x13=y11-y10=osc_gt; + z7=.5[z12,z13]; y12=y13; + z8=.5[z14,z15]; x14=x15; + z9=.5[z16,z17]; y16=y17; + pickup pensquare scaled normalline; %drawing style by Andreas Tille + draw z1--z6; %code rewritten by SeTa + draw z2--z7; + draw z3--z8; + draw z4--z9; + pickup pencircle scaled normalline; + draw fullcircle scaled osc_dia shifted z5; + pickup pensquare scaled thickline; + draw z10--z11; + draw z12--z13; + draw z14--z15; + draw z16--z17; +endchar; + +"a small grey elephant: Thanks to Andreas Tille."; +LE#:=.03mm#; +define_pixels(LE); +numeric nPnt; +def p(expr px,py) = x[nPnt]:=px*LE; y[nPnt]:=py*LE; nPnt:=nPnt+1 enddef; + +beginchar(252,540LE#,265LE#,274LE#); + pickup pencircle scaled 0.4pt; + path a, b; + picture cutpic; + nPnt:=0; + +p( 0, 0); % copyright by Sebastian Tannert +p( 0, 18); % Please think of the hard work! +p( -2, 46);p( -3, 92);p( 8,117);p( 28,152); +p( 38,171);p( 71,195);p(107,218);p(138,240);p(159,255);p(181,261); +p(193,264);p(211,268);p(231,263);p(249,264);p(273,259);p(292,255); +p(311,249);p(336,240);p(380,222);p(414,208);p(437,198);p(449,193); +p(461,190);p(473,185);p(490,173);p(506,157);p(519,125);p(526, 91); +p(530, 56);p(530, 35);p(523, 17);p(518, 1);p(509,-22);p(511,-46); +p(515,-71);p(514,-96);p(512,-112);p(511,-135);p(507,-150);p(498,-171); +p(485,-184);p(465,-197);p(448,-200);p(429,-194);p(418,-177);p(414,-168); +p(420,-159);p(427,-157);p(435,-163);p(439,-171);p(449,-164);p(461,-165); +p(470,-152);p(476,-139);p(476,-118);p(475,-97);p(465,-76);p(450,-62); +p(442,-50);p(427,-36);p(417,-29);p(409,-27);p(392,-12);p(383,-10); +p(374,-18);p(370,-34);p(363,-58);p(347,-92);p(343,-106);p(341,-126); +p(330,-162);p(323,-196);p(322,-210);p(317,-237);p(327,-257);p(325,-268); +p(310,-270);p(301,-272);p(284,-266);p(269,-258);p(268,-236);p(270,-210); +p(282,-185);p(300,-151);p(315,-119);p(322,-93);p(325,-79);p(326,-63); +p(315,-75);p(303,-101);p(292,-134);p(281,-164);p(269,-189);p(258,-220); +p(259,-250);p(260,-266);p(252,-269);p(235,-260);p(221,-266);p(203,-261); +p(194,-242);p(201,-227);p(206,-213);p(207,-190);p(215,-162);p(222,-147); +p(225,-123);p(229,-96);p(234,-77);p(234,-65);p(236,-47);p(236,-30); +p(236,-12);p(240,6);p(248,19);p(264,37);p(146,41);p(158,24); +p(176,-3);p(188,-29);p(193,-53);p(185,-80);p(175,-106);p(165,-137); +p(152,-173);p(143,-202);p(142,-222);p(136,-232);p(141,-253);p(132,-255); +p(125,-255);p(105,-240);p(91,-239);p(75,-228);p(68,-205);p(70,-178); +p(85,-156);p(96,-127);p(100,-112);p(95,-88);p(79,-62);p(60,-38); +p(48,-16);p(36,18);p(28,63);p(24,41);p(28,17);p(29,-6);p(31,-32); +p(26,-43);p(17,-65);p(15,-83);p(12,-106);p(7,-126);p(0,-141); +p(-9,-147);p(-16,-131);p(-24,-110);p(-22,-94);p(-17,-75);p(-6,-55); +p(-2,-34);p(2,-19);p(190,-63);p(209,-75);p(234,-69);p(31,-32); +p(31,-44);p(26,-67);p(37,-95);p(45,-117);p(43,-158);p(38,-193); +p(25,-224);p(29,-249);p(52,-266);p(71,-264);p(88,-266);p(113,-273); +p(133,-273);p(138,-268);p(132,-255);p(457,48);p(462,30);p(481,21); +p(477,40);p(449,32);p(456,11);p(478,5);p(464,60);p(486,61); +p(499,37);p(363,93);p(352,110);p(348,129);p(358,149);p(386,162); +p(414,173);p(427,178);p(443,167);p(456,157);p(461,142);p(450,126); +p(436,110);p(419,74);p(409,53);p(396,40);p(372,51);p(365,67); +p(358,148);p(375,139);p(387,124);p(401,128);p(411,146);p(418,163); +p(427,168);p(443,167);p(444,161);p(434,152);p(432,135);p(440,124); +p(451,128);p(460,141);p(455,157);p(350,138);p(459,138);p(-30,276); +p(539,-283);p(539,276);p(-30,-283);p(427,-41);p(436,-54); + +draw for i:=0 upto 109: z[i]..endfor +z110{up}..z167{curl.7}..z166..z165{curl.7}..z123{down}.. +for i:=124 upto 144: z[i]..endfor z145---z146..z147{down}.. +for i:=148 upto 164: z[i]..endfor z0; + +draw for i:=110 upto 116: z[i].. endfor z117; +draw for i:=118 upto 122: z[i].. endfor z123{down}; + +draw for i:=168 upto 182: z[i].. endfor z183; + +draw for i:=194 upto 210: z[i].. endfor cycle; + +draw for i:=211 upto 217: z[i].. endfor z218; + +a:= z226..z197..z198..z199..z200..z201..z202..z203..z227; +b:= z226--z227; +vshade(b,a,4,unitsquare scaled 1.8); + +a:= z227..z206..z207..z208..z209..z210..z194.. + z195..z196..z226; +b:= z227--z226; +vshade(b,a,4,unitsquare scaled 1.8); + +a:= z228--z230; +b:= z231--z229; +vshade(a,b,4,unitsquare); + +cutpic=nullpicture; + +addto cutpic contour(z228+(0,10)--z230+(10,10)--z229--z231--cycle); + +pickup pencircle scaled 0.7pt + +addto cutpic contour (for i:=0 upto 109: z[i].. endfor + z110{up}..z167{curl.7}..z166..z165{curl.7}..z123{down}.. + for i:=124 upto 144: z[i].. endfor z145---z146..z147{down}.. + for i:=148 upto 164: z[i].. endfor cycle) withweight -1; + +addto cutpic doublepath + (for i:=0 upto 109: z[i].. endfor + z110{up}..z167{curl.7}..z166..z165{curl.7}..z123{down}.. + for i:=124 upto 144: z[i].. endfor z145---z146..z147{down}.. + for i:=148 upto 164: z[i].. endfor z0) withpen currentpen + withweight -1; + +addto cutpic doublepath z232..z233 withpen currentpen withweight -1; + +addto cutpic contour (for i:=168 upto 182: z[i].. endfor z183..z146..cycle) + withpen currentpen withweight -1; + +cull cutpic keeping (1,infinity) withweight -3; + +addto currentpicture also cutpic; + +pickup pencircle scaled .7pt; +draw z184..z185{z186-z184}..z186; +draw z186..z187{z184-z186}..z184; + +draw z188..z189..z190; +draw z191..z192..z193; +draw z232..z233; + +endchar; + +"Masse"; +beginchar(253,.5gnd_wd#,0,gnd_ht#+gnd_spc#+gnd_spc#); + ground + pickup pensquare scaled normalline; + draw z0--z1; + draw z4--z5; + draw z6--z7; + draw z8--z9; +endchar; + +"MASSE"; +beginchar(254,.5GND_wd#,0,gnd_ht#); + ground + pickup pensquare scaled normalline; + draw z0--z1; + pickup pensquare scaled verythickline; + draw z10--z11; +endchar; + +"Verbindungspunkt"; +beginchar(255,cdt_lt#,.5cdt_ht#,.5cdt_ht#); + pickup pencircle scaled cdt_dia; + z0=(0,0); + drawdot z0; +endchar; + +end; +%% +%% +%% End of file `cirest.mf'. |