\startproduct prd_mcc_a3
\project pro_mcc_a3
\setuppapersize[A3, landscape][A3, landscape]


\startMPenvironment
  \setupbodyfont[pos]
\stopMPenvironment

\startuseMPgraphic{fra}

   StartPage ;
       u:=10mm;
     draw Page enlarged -1cm;
     draw Page enlarged -0.80cm;
     draw (1u,2u)--(41u,2u)--cycle;
   StopPage ;

\stopuseMPgraphic



\startuniqueMPgraphic{bottomline}
  draw bottomboundary OverlayBox
  leftenlarged 6pt rightenlarged 6pt
  shifted (0,.75HeaderHeight) ;
  setbounds currentpicture to OverlayBox ; % forces dimensions
\stopuniqueMPgraphic

\startuseMPgraphic{ruler}
u:=5mm;
draw(0,0)--(78u,0)--(0,0);
defaultfont:="cmr5";
draw (0,0)--(0,-0.5u);
label(decimal 0,(0,-1u+4));
for n=1 upto 77:
   draw (1u*n,0)--(1u*n,-0.5u);
endfor
for n=1 upto 38.5 :
   defaultfont:="cmr5";
   label(decimal (2n*100),(1u*2n,-1u+4));
  % draw (2u*n,0)--(2u*n,-0.5u);
  % defaultfont:="cmr5";
   label(decimal (2n*100-100),(1u*2n-1u,-1.1u));
endfor
\stopuseMPgraphic

\startuseMPgraphic{vruler}
u:=5mm;
draw(0,0)--(0,24u)--(0,0);
defaultfont:="cmr5";
draw (0,0)--(-0.5u,0);
label(decimal 0,(-1u+4,0));
for n=1 upto 24:
   draw (0,1u*n)--(-0.5u,1u*n);
endfor
for n=1 upto 24 :
   defaultfont:="cmr5";
   label(decimal (n*100),(-1.2u,1u*n));
endfor
\stopuseMPgraphic







\setupMPvariables[mcc1000][e1=0,e2=0,e3=0,e4=0,e5=0,e6=0,e7=0,e8=0,e9=0]
\startuseMPgraphic{mcc1000}{e1,e2,e3,e4,e5,e6,e7,e8,e9}
  vardef he_eins (expr h, b, ho, vo) =
     save Panel, z;
     picture Panel;
     path s[] ;
     u:=5mm;
     s1 := (0,0)--(b*u,0)--(b*u,h*u)--(0,h*u)--cycle;
     s2 := (0.2u,0.1u)--(0.2u,(h-0.05)*u);
     s3 := ((b-0.2)*u,0.1u)--((b-0.2)*u,(h-0.05)*u);
     s4 := (4.8u,0.3u)--(4.8u,0.7u);
     draw s1 shifted (ho*u,vo*u);
     pickup pencircle scaled 1;
     draw s2 shifted (ho*u,vo*u);
     draw s3 shifted (ho*u,vo*u);
     pickup pencircle scaled 0.5;
%    %Simocode
     draw unitsquare xscaled 1.4u yscaled 0.6u shifted ((ho+0.4)*u,(vo+h-0.8)*u) ;
    draw unitsquare xscaled 0.2u yscaled 0.2u shifted ((ho+0.5)*u,(vo+h-0.7)*u);
    draw unitsquare xscaled 0.2u yscaled 0.2u shifted ((ho+0.8)*u,(vo+h-0.7)*u);
    draw unitsquare xscaled 0.2u yscaled 0.2u shifted ((ho+1.1)*u,(vo+h-0.7)*u);
%    %Schalter
    draw unitsquare xscaled 0.6u yscaled 0.6u shifted ((ho+4.5)*u,(vo+0.2)*u);
    draw fullcircle scaled 0.45u shifted  ((ho+4.8)*u,(vo+0.5)*u);
    draw fullcircle scaled 0.3u shifted  ((ho+4.8)*u,(vo+0.5)*u);
    pickup pencircle scaled 1;
    draw s4 shifted (ho*u,vo*u) ;
   pickup pencircle scaled 0.5;
   Panel:=currentpicture;
   Panel
enddef;

  vardef he_zehn (expr h, b, ho, vo) =
     save Panel, z;
     picture Panel;
     path s[] ;
     u:=5mm;
     s1 := (0,0)--(b*u,0)--(b*u,h*u)--(0,h*u)--cycle;
     s2 := (0.2u,0.1u)--(0.2u,(h-0.05)*u);
     s3 := ((b/2+0.2)*u,0.1u)--((b/2+0.2)*u,(h-0.05)*u);
     s4 := (4.8u,0.3u)--(4.8u,0.7u);
     s5 := (2u,0.3u)--(2u,0.7u);
     s6 := (2.8u,0)--(2.8u,1.75u);
    draw s1 shifted (ho*u,vo*u);
    pickup pencircle scaled 1;
    draw s2 shifted (ho*u,vo*u);
    pickup pencircle scaled 0.5;
%    %Simocode
     draw unitsquare xscaled 1.4u yscaled 0.6u shifted ((ho+0.4)*u,(vo+h-0.8)*u) ;
    draw unitsquare xscaled 0.2u yscaled 0.2u shifted ((ho+0.5)*u,(vo+h-0.7)*u);
    draw unitsquare xscaled 0.2u yscaled 0.2u shifted ((ho+0.8)*u,(vo+h-0.7)*u);
    draw unitsquare xscaled 0.2u yscaled 0.2u shifted ((ho+1.1)*u,(vo+h-0.7)*u);
%    %Schalter
    draw unitsquare xscaled 0.6u yscaled 0.6u shifted ((ho+1.7)*u,(vo+0.2)*u);
   draw fullcircle scaled 0.45u shifted  ((ho+2)*u,(vo+0.5)*u);
   draw fullcircle scaled 0.3u shifted  ((ho+2)*u,(vo+0.5)*u);
    pickup pencircle scaled 1;
    draw s5 shifted (ho*u,vo*u) ;
    pickup pencircle scaled 0.5;
    draw s6 shifted (ho*u,vo*u) ;
   pickup pencircle scaled 0.5;
   Panel:=currentpicture;
   Panel
enddef;

 vardef he_elf (expr h, b, ho, vo) =
     save Panel, z;
     picture Panel;
     path s[] ;
     u:=5mm;
     s1 := (0,0)--(b*u,0)--(b*u,h*u)--(0,h*u)--cycle;
     s2 := (0.2u,0.1u)--(0.2u,(h-0.05)*u);
     s3 := ((b/2+0.2)*u,0.1u)--((b/2+0.2)*u,(h-0.05)*u);
     s4 := (4.8u,0.3u)--(4.8u,0.7u);
     s5 := (2u,0.3u)--(2u,0.7u);
     s6 := (2.8u,0)--(2.8u,1.75u);
    draw s1 shifted (ho*u,vo*u);
    pickup pencircle scaled 1;
    draw s2 shifted (ho*u,vo*u);
    draw s3 shifted (ho*u,vo*u);
    pickup pencircle scaled 0.5;
    %Simocode   links
     draw unitsquare xscaled 1.4u yscaled 0.6u shifted ((ho+0.4)*u,(vo+h-0.8)*u) ;
    draw unitsquare xscaled 0.2u yscaled 0.2u shifted ((ho+0.5)*u,(vo+h-0.7)*u);
    draw unitsquare xscaled 0.2u yscaled 0.2u shifted ((ho+0.8)*u,(vo+h-0.7)*u);
    draw unitsquare xscaled 0.2u yscaled 0.2u shifted ((ho+1.1)*u,(vo+h-0.7)*u);
  %Simocode   rechts
     draw unitsquare xscaled 1.4u yscaled 0.6u shifted ((ho+3.2)*u,(vo+h-0.8)*u) ;
    draw unitsquare xscaled 0.2u yscaled 0.2u shifted ((ho+3.3)*u,(vo+h-0.7)*u);
    draw unitsquare xscaled 0.2u yscaled 0.2u shifted ((ho+3.7)*u,(vo+h-0.7)*u);
    draw unitsquare xscaled 0.2u yscaled 0.2u shifted ((ho+4)*u,(vo+h-0.7)*u);


    %Schalter links
    draw unitsquare xscaled 0.6u yscaled 0.6u shifted ((ho+1.7)*u,(vo+0.2)*u);
   draw fullcircle scaled 0.45u shifted  ((ho+2)*u,(vo+0.5)*u);
   draw fullcircle scaled 0.3u shifted  ((ho+2)*u,(vo+0.5)*u);
    pickup pencircle scaled 1;
    draw s5 shifted (ho*u,vo*u) ;
    pickup pencircle scaled 0.5;

    %Schalter  rechts
    draw unitsquare xscaled 0.6u yscaled 0.6u shifted ((ho+4.5)*u,(vo+0.2)*u);
   draw fullcircle scaled 0.45u shifted  ((ho+4.8)*u,(vo+0.5)*u);
   draw fullcircle scaled 0.3u shifted  ((ho+4.8)*u,(vo+0.5)*u);
    pickup pencircle scaled 1;
    draw s5 shifted ((ho+2.8)*u,vo*u) ;
   pickup pencircle scaled 0.5;

    draw s6 shifted (ho*u,vo*u) ;
  pickup pencircle scaled 0.5;
   Panel:=currentpicture;
   Panel
enddef;


 vardef he_zweidreivier (expr h, b, ho, vo) =
     save Panel, z;
     picture Panel;
     path s[] ;
     u:=5mm;
     s1 := (0,0)--(b*u,0)--(b*u,h*u)--(0,h*u)--cycle;
     s2 := (0.2u,0.1u)--(0.2u,(h-0.05)*u);
     s3 := ((b-0.2)*u,0.1u)--((b-0.2)*u,(h-0.05)*u);
     s4 := (4.8u,0.3u)--(4.8u,0.7u);
     s5 := fullcircle scaled 0.7u ;
     s6 := unitsquare xscaled 0.8u yscaled 0.2u  shifted ((ho+b/2-0.2)*u,(vo+h-1.2-0.1)*u)  ;
     s7 := unitsquare xscaled 0.8u yscaled 0.8u ;
     s8 := unitsquare xscaled 0.3u yscaled 0.15u shifted ((ho+b/2-0.15)*u,(vo+h-1.2-0.075)*u) ;
     s9 := fullcircle scaled 0.15u shifted (5.6u,(h/2)*u);
    draw s1 shifted (ho*u,vo*u);
    draw s9 shifted (ho*u,vo*u);
    pickup pencircle scaled 1;
    pickup pencircle scaled 0.5;
%    %Simocode
     draw unitsquare xscaled 1.4u yscaled 0.6u shifted ((ho+0.4)*u,(vo+h-0.8)*u) ;
    draw unitsquare xscaled 0.2u yscaled 0.2u shifted ((ho+0.5)*u,(vo+h-0.7)*u);
    draw unitsquare xscaled 0.2u yscaled 0.2u shifted ((ho+0.8)*u,(vo+h-0.7)*u);
    draw unitsquare xscaled 0.2u yscaled 0.2u shifted ((ho+1.1)*u,(vo+h-0.7)*u);
%    %Schalter
    draw s5 shifted ((ho+b/2)*u,(vo+h-1.2)*u)  ;
    fill s6 withcolor 0.1 white ;
    draw s6;
    draw s7 shifted ((ho+b/2-0.4)*u,(vo+h-1.2-0.4)*u)  ;
    fill s8 withcolor yellow   ;
   Panel:=currentpicture;
   Panel
enddef;


  path s[],k ;
  u:=5mm;
  z0 = origin;
  z1 = (10u,0);
  z2 = (10u,22u);
  z3 = (0,22u);
  z4 = z0 +(0.5u,0.5u);
  z5 = (4u,0) +(-0.5u,0.5u);
  z6 = z0 +(0.5u,7.5u);
  z7 = (4u,0) +(-0.5u,7.5u);

  s1 := z0--z1--z2--z3--cycle;
  s2 := (0.1u,0.7u)--(5.9u,0.7u)--(5.9u,21.7u)--(0.1u,21.7u)--cycle;
  s3 := z4--z5--z7--z6--cycle;
  s4 := fullcircle scaled 0.15u shifted (6.3u,11u);

 %  k := (4u,15u)--(5u,15u)--(5u,16u)--(4u,16u)--cycle;
 %Schrank Rahmen außen
 draw s1;
 draw s2;
 draw (6.1u,0.7u)--(9.9u,0.7u)--(9.9u,21.7u)--(6.1u,21.7u)--cycle;
 draw s4;
 if \MPvar{e1}=1:
   draw he_eins ((1.75),(5.6), (0.2),(3.5));
 fi;
 if \MPvar{e1}=10:
   draw he_zehn ((1.75),(5.6), (0.2),(3.5));
 fi;
 if \MPvar{e1}=11:
   draw he_elf ((1.75),(5.6), (0.2),(3.5));
 fi;
 if \MPvar{e1}=2:
   draw he_zweidreivier ((3.5),(5.8), (0.1),(3.5));
 fi;
 if \MPvar{e1}=3:
   draw he_zweidreivier ((5.25),(5.8), (0.1),(3.5));
 fi;
 if \MPvar{e1}=4:
   draw he_zweidreivier ((7),(5.8), (0.1),(3.5));
 fi;
 if \MPvar{e2}=1:
   draw he_eins ((1.75),(5.6), (0.2),(5.25));
 fi;
 if \MPvar{e2}=10:
   draw he_zehn ((1.75),(5.6), (0.2),(5.25));
 fi;
 if \MPvar{e2}=11:
   draw he_elf ((1.75),(5.6), (0.2),(5.25));
 fi;

 if \MPvar{e3}=11:
   draw he_elf ((1.75),(5.6), (0.2),(7));
 fi;
 if \MPvar{e3}=1:
   draw he_eins ((1.75),(5.6), (0.2),(7));
 fi;
 if \MPvar{e3}=10:
   draw he_zehn ((1.75),(5.6), (0.2),(7));
 fi;
 if \MPvar{e3}=11:
   draw he_elf ((1.75),(5.6), (0.2),(7));
 fi;
 if \MPvar{e3}=2:
   draw he_zweidreivier ((3.5),(5.8), (0.1),(7));
 fi;
 if \MPvar{e4}=1:
   draw he_eins ((1.75),(5.6), (0.2),(8.75));
 fi;
 if \MPvar{e4}=10:
   draw he_zehn ((1.75),(5.6), (0.2),(8.75));
 fi;
 if \MPvar{e4}=11:
   draw he_elf ((1.75),(5.6), (0.2),(8.75));
 fi;
 if \MPvar{e4}=2:
   draw he_zweidreivier ((3.5),(5.8), (0.1),(8.75));
 fi;
 if \MPvar{e4}=3:
   draw he_zweidreivier ((5.25),(5.8), (0.1),(8.75));
 fi;
 if \MPvar{e5}=1:
   draw he_eins ((1.75),(5.6), (0.2),(10.5));
 fi;
 if \MPvar{e5}=10:
   draw he_zehn ((1.75),(5.6), (0.2),(10.5));
 fi;
 if \MPvar{e5}=11:
   draw he_elf ((1.75),(5.6), (0.2),(10.5));
 fi;
 if \MPvar{e5}=2:
   draw he_zweidreivier ((3.5),(5.8), (0.1),(10.5));
 fi;
 if \MPvar{e5}=3:
   draw he_zweidreivier ((5.25),(5.8), (0.1),(10.5));
 fi;
 if \MPvar{e5}=4:
   draw he_zweidreivier ((7),(5.8), (0.1),(10.5));
 fi;
 if \MPvar{e6}=1:
   draw he_eins ((1.75),(5.6), (0.2),(12.25));
 fi;
 if \MPvar{e6}=10:
   draw he_zehn ((1.75),(5.6), (0.2),(12.25));
 fi;
 if \MPvar{e6}=11:
   draw he_elf ((1.75),(5.6), (0.2),(12.25));
 fi;
 if \MPvar{e7}=1:
   draw he_eins ((1.75),(5.6), (0.2),(14));
 fi;
 if \MPvar{e7}=10:
   draw he_zehn ((1.75),(5.6), (0.2),(14));
 fi;
 if \MPvar{e7}=11:
   draw he_elf ((1.75),(5.6), (0.2),(14));
 fi;
 if \MPvar{e7}=2:
   draw he_zweidreivier ((3.5),(5.8), (0.1),(14));
 fi;
 if \MPvar{e8}=1:
   draw he_eins ((1.75),(5.6), (0.2),(15.75));
 fi;
 if \MPvar{e8}=10:
   draw he_zehn ((1.75),(5.6), (0.2),(15.75));
 fi;
 if \MPvar{e8}=11:
   draw he_elf ((1.75),(5.6), (0.2),(15.75));
 fi;
 if \MPvar{e9}=1:
   draw he_eins ((1.75),(5.6), (0.2),(17.5));
 fi;
 if \MPvar{e9}=10:
   draw he_zehn ((1.75),(5.6), (0.2),(17.5));
 fi;
 if \MPvar{e9}=11:
   draw he_elf ((1.75),(5.6), (0.2),(17.5));
 fi;


\stopuseMPgraphic


\startuseMPgraphic{lcm400}
  path s[],k ;
  u:=5mm;
  z0 = origin;
  z1 = (4u,0);
  z2 = (4u,22u);
  z3 = (0,22u);
  z4 = z0 +(0.5u,0.5u);
  z5 = z1 +(-0.5u,0.5u);
  z6 = z0 +(0.5u,7.5u);
  z7 = z1 +(-0.5u,7.5u);
  z8 = z6 +(0,0.2u);
  z9 = z0 +(0.2u,9.5u);
  z10= z9 +(0.1u,0.5u);
  z11= z8 +(0.2u,0.1u);
  z12= z8 +(0.3u,3u);
  z13= z2 +(-2u,-2u);
  z14= 0.2[z3,z2];
  z15= 0.8[z3,z2];
  z16= z3 +(0,2u);
  z17=z13+(0,-0.15u);

  s1 := z0--z1--z2--z3--cycle;
  s2 := (0.1u,0.3u)--(3.9u,0.3u)--(3.9u,21.7u)--(0.1u,21.7u)--cycle;
  s3 := z4--z5--z7--z6--cycle;
  s4 := z0--(0.8u,0)--(0.4u,0.8u)--cycle;
  s5 := (0.4u,0.5u)--(0.3u,0.3u)--(0.5u,0.4u)--(0.4u,0);
  s6 := fullcircle scaled 0.5u shifted z13;
  s7 := unitsquare xscaled 1.5u yscaled 0.3u shifted z17 ;

 %  k := (4u,15u)--(5u,15u)--(5u,16u)--(4u,16u)--cycle;
 %Schrank Rahmen außen
 draw s1;
 draw s2;
 %Lüftungsgitter unten
 fill s3 withcolor 0.625white;
 draw s3 ;
 draw hlingrid(0, 20 ,1, 7u,3u) shifted z4;
 draw vlingrid(0, 2 ,1, 3u,7u) shifted z4;
 %Sinamics Schriftfeld senkrecht
 draw unitsquare xscaled 1.2u yscaled 11u shifted z8;
 draw unitsquare xscaled 1.2u yscaled 1.2u shifted z8;
 draw s4 shifted z11;
 drawarrow s5 shifted z11;
 defaultfont:="cmss10";
 label( btex SINAMICS etex rotated 90,  (1.1u,12u));
 %draw btex \bf SINAMICS etex rotated 90 shifted z12;

 %Schloss
 draw unitsquare xscaled 0.2u yscaled 1u shifted z9;
 fill fullcircle xyscaled 0.1u shifted z10;

 %Haupt-Schalter
 draw fullcircle scaled 0.5u shifted (2.2u,10u);
 draw unitsquare xscaled 1.5u yscaled 0.3u shifted (2.2u,9.85u)
 cutbefore fullcircle scaled 0.5u shifted (2.2u,10u) cutafter
 fullcircle scaled 0.5u shifted (2.2u,10u) ;

 %Simeas
 draw unitsquare xscaled 1.5u yscaled 1.5u shifted (2.2u,18u);
 draw unitsquare xscaled 1u yscaled 1u shifted (2.45u,18.3u);
 draw unitsquare xscaled 0.1u yscaled 0.1u shifted (2.5u,18.1u);
 draw unitsquare xscaled 0.1u yscaled 0.1u shifted (2.7u,18.1u);
 draw unitsquare xscaled 0.1u yscaled 0.1u shifted (2.9u,18.1u);
 draw unitsquare xscaled 0.1u yscaled 0.1u shifted (3.1u,18.1u);

 %Dach
 draw unitsquare xscaled 0.2u yscaled 2u shifted z14;
 draw unitsquare xscaled -0.2u yscaled 2u shifted z15;
 draw unitsquare xscaled 4u yscaled 0.2u shifted z16;

\stopuseMPgraphic


\startuseMPgraphic{lcm600}
  path s[],k ;
  u:=5mm;
  z0 = origin;
  z1 = (6u,0);
  z2 = (6u,22u);
  z3 = (0,22u);
  z4 = z0 +(0.5u,0.5u);
  z5 = z1 +(-0.5u,0.5u);
  z6 = z0 +(0.5u,7.5u);
  z7 = z1 +(-0.5u,7.5u);
  z8 = z6 +(0,0.2u);
  z9 = z0 +(0.2u,9.5u);
  z10= z9 +(0.1u,0.5u);
  z11= z8 +(0.2u,0.1u);
  z12= z8 +(0.3u,3u);
  z13= z2 +(-2u,-2u);
  z14= 0.2[z3,z2];
  z15= 0.8[z3,z2];
  z16= z3 +(0,2u);
  z17=z13+(0,-0.15u);

  s1 := z0--z1--z2--z3--cycle;
  s2 := (0.1u,0.7u)--(5.9u,0.7u)--(5.9u,21.7u)--(0.1u,21.7u)--cycle;
  s3 := z4--z5--z7--z6--cycle;
  s4 := z0--(0.8u,0)--(0.4u,0.8u)--cycle;
  s5 := (0.4u,0.5u)--(0.3u,0.3u)--(0.5u,0.4u)--(0.4u,0);
  s6 := fullcircle scaled 0.5u shifted z13;
  s7 := unitsquare xscaled 1.5u yscaled 0.3u shifted z17 ;
 %  k := (4u,15u)--(5u,15u)--(5u,16u)--(4u,16u)--cycle;
 %Schrank Rahmen außen
 draw s1;
 draw s2;


 %Leistungs-Schalter
 draw unitsquare xscaled 3.3u yscaled 4u shifted (1.2u,9u);
 draw unitsquare xscaled 1u yscaled 2.5u shifted (1.45u,9.3u);
 draw unitsquare xscaled 1u yscaled 1.8u shifted (2.7u,9.5u);
 draw unitsquare xscaled 0.3u yscaled 2.5u shifted (3.9u,9.5u);
 draw fullcircle xyscaled 0.3u shifted (3u,10u);
 draw fullcircle xyscaled 0.3u shifted (3.45u,10u);
 draw fullcircle xyscaled 0.3u shifted (3u,10.7u);


 %Simeas
 draw unitsquare xscaled 1.5u yscaled 1.5u shifted (2.2u,18u);
 draw unitsquare xscaled 1u yscaled 1u shifted (2.45u,18.3u);
 draw unitsquare xscaled 0.1u yscaled 0.1u shifted (2.5u,18.1u);
 draw unitsquare xscaled 0.1u yscaled 0.1u shifted (2.7u,18.1u);
 draw unitsquare xscaled 0.1u yscaled 0.1u shifted (2.9u,18.1u);
 draw unitsquare xscaled 0.1u yscaled 0.1u shifted (3.1u,18.1u);



\stopuseMPgraphic

\startuseMPgraphic{lcm800}
  path s[],k ;
  u:=5mm;
  z0 = origin;
  z1 = (8u,0);
  z2 = (8u,22u);
  z3 = (0,22u);
  z4 = z0 +(0.5u,0.5u);
  z5 = z1 +(-0.5u,0.5u);
  z6 = z0 +(0.5u,7.5u);
  z7 = z1 +(-0.5u,7.5u);
  z8 = z6 +(0,0.2u);
  z9 = z0 +(0.2u,9.5u);
  z10= z9 +(0.1u,0.5u);
  z11= z8 +(0.2u,0.1u);
  z12= z8 +(0.3u,3u);
  z13= z2 +(-2u,-2u);
  z14= 0.2[z3,z2];
  z15= 0.8[z3,z2];
  z16= z3 +(0,2u);
  z17=z13+(0,-0.15u);

  s1 := z0--z1--z2--z3--cycle;
  s2 := (0.1u,0.7u)--(7.9u,0.7u)--(7.9u,21.7u)--(0.1u,21.7u)--cycle;
  s3 := z4--z5--z7--z6--cycle;
  s4 := z0--(0.8u,0)--(0.4u,0.8u)--cycle;
  s5 := (0.4u,0.5u)--(0.3u,0.3u)--(0.5u,0.4u)--(0.4u,0);
  s6 := fullcircle scaled 0.5u shifted z13;
  s7 := unitsquare xscaled 1.5u yscaled 0.3u shifted z17 ;
 %  k := (4u,15u)--(5u,15u)--(5u,16u)--(4u,16u)--cycle;
 %Schrank Rahmen außen
 draw s1;
 draw s2;

 %Leistungs-Schalter
 draw unitsquare xscaled 3.3u yscaled 4u shifted (2.2u,9u);
 draw unitsquare xscaled 1u yscaled 2.5u shifted (2.45u,9.3u);
 draw unitsquare xscaled 1u yscaled 1.8u shifted (3.7u,9.5u);
 draw unitsquare xscaled 0.3u yscaled 2.5u shifted (4.9u,9.5u);
 draw fullcircle xyscaled 0.3u shifted (4u,10u);
 draw fullcircle xyscaled 0.3u shifted (4.45u,10u);
 draw fullcircle xyscaled 0.3u shifted (4u,10.7u);


 %Simeas
 draw unitsquare xscaled 1.5u yscaled 1.5u shifted (3.2u,18u);
 draw unitsquare xscaled 1u yscaled 1u shifted (3.45u,18.3u);
 draw unitsquare xscaled 0.1u yscaled 0.1u shifted (3.5u,18.1u);
 draw unitsquare xscaled 0.1u yscaled 0.1u shifted (3.7u,18.1u);
 draw unitsquare xscaled 0.1u yscaled 0.1u shifted (3.9u,18.1u);
 draw unitsquare xscaled 0.1u yscaled 0.1u shifted (4.1u,18.1u);

\stopuseMPgraphic

\startuseMPgraphic{lcm1000}
  path s[],k ;
  u:=5mm;
  z0 = origin;
  z1 = (10u,0);
  z2 = (10u,22u);
  z3 = (0,22u);
  z4 = z0 +(0.5u,0.5u);
  z5 = (4u,0) +(-0.5u,0.5u);
  z6 = z0 +(0.5u,7.5u);
  z7 = (4u,0) +(-0.5u,7.5u);
  z8 = z6 +(0,0.2u);
  z9 = (4u,0) +(0.2u,9.5u);
  z10= z9 +(0.1u,0.5u);
  z11= z8 +(0.2u,0.1u);
  z12= z8 +(0.3u,3u);
  z13= z2 +(-2u,-2u);
  z14= 0.2[z3,z2];
  z15= 0.8[z3,z2];
  z16= z3 +(0,2u);
  z17=z13+(0,-0.15u);
  z18= (4u,0);
  z19=z4+(4u,0);

  s1 := z0--z1--z2--z3--cycle;
  s2 := (0.1u,0.7u)--(3.9u,0.7u)--(3.9u,21.7u)--(0.1u,21.7u)--cycle;
  s3 := z4--z5--z7--z6--cycle;
  s4 := z0--(0.8u,0)--(0.4u,0.8u)--cycle;
  s5 := (0.4u,0.5u)--(0.3u,0.3u)--(0.5u,0.4u)--(0.4u,0);
  s6 := fullcircle scaled 0.5u shifted z13;
  s7 := unitsquare xscaled 1.5u yscaled 0.3u shifted z17 ;
  s8 := z4+(6u,0)--z5+(6u,0)--z7+(6u,0)--z6+(6u,0)--cycle;

 %  k := (4u,15u)--(5u,15u)--(5u,16u)--(4u,16u)--cycle;
 %Schrank Rahmen außen
 draw s1;
 draw s2;
 draw (4.1u,0.3u)--(9.9u,0.3u)--(9.9u,21.7u)--(4.1u,21.7u)--cycle;
 %Lüftungsgitter unten
 fill s3 withcolor 0.625white;
 draw s3;
 fill (4.5u,0.5u)--(9.5u,0.5u)--(9.5u,7.5u)--(4.5u,7.5u)--cycle withcolor 0.625white;
 draw (4.5u,0.5u)--(9.5u,0.5u)--(9.5u,7.5u)--(4.5u,7.5u)--cycle;
 %fill s8 withcolor 0.625white;
 draw hlingrid(0, 20 ,1, 7u,3u) shifted z4;
 draw vlingrid(0, 2 ,1, 3u,7u) shifted z4;
 draw hlingrid(0, 20 ,1, 7u,5u) shifted z19;
 draw vlingrid(0, 2 ,1, 5u,7u) shifted z19;
 %Sinamics Schriftfeld senkrecht
 draw unitsquare xscaled 1.2u yscaled 11u shifted z8;
 draw unitsquare xscaled 1.2u yscaled 1.2u shifted z8;
 draw s4 shifted z11;
 drawarrow s5 shifted z11;
 defaultfont:="cmss10";
 label( btex SINAMICS etex rotated 90,  (1.1u,12u));
 %draw btex \bf SINAMICS etex rotated 90 shifted z12;

 %Schloss
 draw unitsquare xscaled 0.2u yscaled 1u shifted z9;
 fill fullcircle xyscaled 0.1u shifted z10;

 %Leistungs-Schalter
 draw unitsquare xscaled 3.3u yscaled 4u shifted (4.4u,11u);
 draw unitsquare xscaled 1u yscaled 2.5u shifted (4.65u,11.3u);
 draw unitsquare xscaled 1u yscaled 1.8u shifted (5.9u,11.5u);
 draw unitsquare xscaled 0.3u yscaled 2.5u shifted (7.1u,11.5u);
 draw fullcircle xyscaled 0.3u shifted (6.2u,12u);
 draw fullcircle xyscaled 0.3u shifted (6.65u,12u);
 draw fullcircle xyscaled 0.3u shifted (6.2u,12.7u);



 %Simeas
 draw unitsquare xscaled 1.5u yscaled 1.5u shifted (5.2u,18u);
 draw unitsquare xscaled 1u yscaled 1u shifted (5.45u,18.3u);
 draw unitsquare xscaled 0.1u yscaled 0.1u shifted (5.5u,18.1u);
 draw unitsquare xscaled 0.1u yscaled 0.1u shifted (5.7u,18.1u);
 draw unitsquare xscaled 0.1u yscaled 0.1u shifted (5.9u,18.1u);
 draw unitsquare xscaled 0.1u yscaled 0.1u shifted (6.1u,18.1u);



 %Dach
 draw unitsquare xscaled 0.2u yscaled 2u shifted z14;
 draw unitsquare xscaled -0.2u yscaled 2u shifted z15;
 draw unitsquare xscaled 10u yscaled 0.2u shifted z16;

\stopuseMPgraphic

\startuseMPgraphic{leer600}
  path s[],k ;
  u:=5mm;
  z0 = origin;
  z1 = (6u,0);
  z2 = (6u,22u);
  z3 = (0,22u);

  s1 := z0--z1--z2--z3--cycle;
  s2 := (0.1u,0.7u)--(5.9u,0.7u)--(5.9u,21.7u)--(0.1u,21.7u)--cycle;

 %Schrank Rahmen außen
 draw s1;
 draw s2;
% draw (4.1u,0.7u)--(7.9u,0.7u)--(7.9u,21.7u)--(4.1u,21.7u)--cycle;
\stopuseMPgraphic



\startuseMPgraphic{leer800}
  path s[],k ;
  u:=5mm;
  z0 = origin;
  z1 = (8u,0);
  z2 = (8u,22u);
  z3 = (0,22u);

  s1 := z0--z1--z2--z3--cycle;
  s2 := (0.1u,0.7u)--(3.9u,0.7u)--(3.9u,21.7u)--(0.1u,21.7u)--cycle;

 %Schrank Rahmen außen
 draw s1;
 draw s2;
 draw (4.1u,0.7u)--(7.9u,0.7u)--(7.9u,21.7u)--(4.1u,21.7u)--cycle;
\stopuseMPgraphic


\startuseMPgraphic{leer900}
  path s[],k ;
  u:=5mm;
  z0 = origin;
  z1 = (9u,0);
  z2 = (9u,22u);
  z3 = (0,22u);

  s1 := z0--z1--z2--z3--cycle;
  s2 := (0.1u,0.7u)--(4.4u,0.7u)--(4.4u,21.7u)--(0.1u,21.7u)--cycle;

 %Schrank Rahmen außen
 draw s1;
 draw s2;
 draw (4.6u,0.7u)--(8.9u,0.7u)--(8.9u,21.7u)--(4.6u,21.7u)--cycle;
\stopuseMPgraphic

\startuseMPgraphic{leer1000}
  path s[],k ;
  u:=5mm;
  z0 = origin;
  z1 = (10u,0);
  z2 = (10u,22u);
  z3 = (0,22u);

  s1 := z0--z1--z2--z3--cycle;
  s2 := (0.1u,0.7u)--(4.9u,0.7u)--(4.9u,21.7u)--(0.1u,21.7u)--cycle;

 %Schrank Rahmen außen
 draw s1;
 draw s2;
 draw (5.1u,0.7u)--(9.9u,0.7u)--(9.9u,21.7u)--(5.1u,21.7u)--cycle;
\stopuseMPgraphic





\stopproduct

%%% Local Variables:
%%% mode: context
%%% TeX-master: t
%%% End: