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
|
% LED.mp
% L. Nobre G.
% 2009
prologues := 1;
beginfig(1);
numeric u, hthick, vthick, lspace, espace, dspace, h, lbase, dbase;
numeric dinray, halfh, tp, scal, marg, dcorrection;
u = 1.5mm;
hthick = 20u;
vthick = 10u;
% lspace = 15u;
lspace = 8u;
espace = 8u;
dspace = 8u;
h = 3*vthick+2*espace;
% lbase = 38u;
lbase = 45u;
% dbase = 16u;
dbase = 19u;
halfh = h/2;
dinray = halfh-vthick;
tp = 1.15;
dcorrection = 1.3u;
scal = (h-vthick-espace)/h;
marg = 4u;
z200 = (marg,vthick+espace-marg);
path pathl, pathe, pathd, pathu;
z0 = (0,0);
z1 = (lbase,0);
z2 = (lbase,vthick);
z3 = (hthick,vthick);
z4 = (hthick,h);
z5 = (0,h);
pathl = z0--z1--z2--z3--z4--z5--cycle;
z6 = (lbase+lspace,0);
z7 = z6 + (h,0);
z8 = z7 + (0,vthick);
z9 = z6 + (vthick,vthick);
z10= z9 + (0,espace);
z11= z10+ (vthick,0);
z12= z10+ (vthick,vthick);
z13= z6 + (0,2*vthick+espace);
pathe = z6--z7--z8--z9--z10--z11--z12--z13--cycle;
z14= z7 + (dspace,0);
z15= z14+ (dbase,0);
z16= z15+ (halfh,halfh+dcorrection);
z17= z15+ (dcorrection,h);
z18= z14+ (0,h);
z19= z18- (0,vthick);
z20= z19+ (dbase,0);
z21= z20+ (dinray,-dinray);
z22= z15+ (0,vthick);
z23= z14+ (0,vthick);
pathd = z14---z15..z16..tension tp..z17---z18--z19---z20..tension tp..z21..z22---z23--cycle;
z24= z6 + (0,h);
z25= z24+ (h,0);
z26= z25- (0,vthick);
z27= z24- (0,vthick);
pathu = z24--z25--z26--z27--cycle;
% fill pathl withcolor 0.78red;
% fill pathe;
% fill pathd;
% fill pathu;
% dotlabels( 14,15,16,17,18,19,20,21,22,23 );
z100 = (0,-2h);
drawoptions( shifted z100 );
fill pathl withcolor 0.78red;
fill pathe shifted (-z6) scaled scal shifted z200;
fill pathd shifted (-z6) scaled scal shifted z200;
fill pathu shifted (-z6) scaled scal shifted z200;
endfig;
end.
|
