Hello Hans,
this is the message I got after running texexec pro_mcc_a3.tex.
As you can see I have increased the memory size for mp.
I have attached the two tex-files.
Maybe there is a mistake in the mp-code. A pdf-file will be produced,
but if you check the output you will see, that one cubicle is missing!
Thanks for your help!
Thomas
TeXExec 5.4.3 - ConTeXt / PRAGMA ADE 1997-2005
metapost : pro_mcc_a3-mpgraph
format : metafun
This is MetaPost, Version 0.901 (Web2C 7.5.3)
(/home/thomas/texmf/web2c/natural.tcx)
(pro_mcc_a3-mpgraph.mp [1] [2] [3] [4] [5] [6] [7] [8] [9]
! MetaPost capacity exceeded, sorry [main memory size=2000000].
<recently read> ;
l.2277 ...aw he_zehn ((1.75),(5.6), (0.2),(17.5));
9 output files written: pro_mcc_a3-mpgraph.1 .. pro_mcc_a3-mpgraph.9
Transcript written on pro_mcc_a3-mpgraph.log.
error in metapost run : pro_mcc_a3-mpgraph.mp:2277
total run time : 0 seconds
sorting and checking : running texutil
TeXUtil 9.0.0 - ConTeXt / PRAGMA ADE 1992-2004
action : processing commands, lists and registers
option : sorting IJ under Y
option : converting high ASCII values
input file : pro_mcc_a3.tui
output file : pro_mcc_a3.tuo
passed commands : 18
remapped keys : 0
register entries : 0 -> 0 entries 0 references
synonym entries : 0 -> 0 entries
embedded files : 2
total run time : 7 seconds
\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:
\startproject pro_mcc_a3
\setupoutput[pdftex]
\enableregime [il1]
\setuppapersize[A3, landscape][A3, landscape]
\setuplayout[leftmargin=0cm,textwidth=37cm]
\mainlanguage [en]
\setupcolors[state=start]
\setuppagenumbering[location=, alternate=singlesided]
\usetypescript[sans][12pt]
\setupbodyfont[helvetica,ss,12pt]
\definelayer[s1]
\defineoverlay[s1][\composedlayer{s1}]
\setupbackgrounds[page][background=s1]
\def\OCustomer{Test Customer}
\def\OProject{KM4 - MCC}
\def\ODate{2006-04-04}
\def\ONr{O-10009723}
\starttext
\product prd_mcc_a3
\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
\startbuffer[rahmen]
\setlayer[s1]{\useMPgraphic{fra}}
\setlayer[s1][x=1cm,y=14.5cm]{\useMPgraphic{vruler}}
\setlayer[s1]{\useMPgraphic{bottomlinie}}
\setlayer[s1][x=1.2cm,y=28cm]{Copyright \copyright \quad
Thomas Engel 2006. \quad Project: \OProject \quad
Customer: \OCustomer \quad Offer-No.: \ONr \quad Date: \ODate \qquad Page: \pagenumber/\lastpage }
\setlayer[s1][x=1.95cm,y=27cm]{\useMPgraphic{ruler}}
\strut
\stopbuffer
\getbuffer[rahmen]
\setlayer[s1][x=3cm,y=5cm]{Layout MCC OCC6}
\setlayer[s1][x=2cm,y=15.6cm]{\useMPgraphic{lcm800}}
\setMPvariables[mcc1000][e1=4,e2=0,e3=0,e4=0,e5=2,e6=0,e7=1,e8=1,e9=1]
\setlayer[s1][x=6cm,y=15.6cm]{\useMPgraphic{mcc1000}}
\setMPvariables[mcc1000][e1=4,e2=0,e3=0,e4=0,e5=2,e6=0,e7=1,e8=1,e9=1]
\setlayer[s1][x=11cm,y=15.6cm]{\useMPgraphic{mcc1000}}
\setMPvariables[mcc1000][e1=3,e2=0,e3=0,e4=2,e5=0,e6=2,e7=1,e8=0,e9=0]
\setlayer[s1][x=16cm,y=15.6cm]{\useMPgraphic{mcc1000}}
\setMPvariables[mcc1000][e1=3,e2=0,e3=0,e4=11,e5=11,e6=11,e7=11,e8=11,e9=11]
\setlayer[s1][x=21cm,y=15.6cm]{\useMPgraphic{mcc1000}}
\setMPvariables[mcc1000][e1=3,e2=0,e3=0,e4=11,e5=11,e6=11,e7=11,e8=0,e9=0]
\setlayer[s1][x=26cm,y=15.6cm]{\useMPgraphic{mcc1000}}
\setMPvariables[mcc1000][e1=11,e2=11,e3=11,e4=11,e5=11,e6=11,e7=11,e8=11,e9=10]
\setlayer[s1][x=31cm,y=15.6cm]{\useMPgraphic{mcc1000}}
\stoptext
\stopproject
%%% Local Variables:
%%% mode: context
%%% TeX-master: t
%%% End:
_______________________________________________
ntg-context mailing list
ntg-context@ntg.nl
http://www.ntg.nl/mailman/listinfo/ntg-context
