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
|
% profaux.mp
% L. Nobre G.
% 2005
beginfig(1);
numeric u, penbig, pensma, aangle, barhei, cirray, ularg, umarg, xhei, xcen;
numeric atray;
u = 1cm;
cirray = 5u;
atray = 6.7u;
aangle = 33;
penbig = 1.85u;
pensma = 0.75u;
barhei = -1u;
ularg = penbig-pensma;
umarg = 0.5*pensma;
color cux, coa;
cux = 0.78red;
coa = 0.78green;
pen bigpen, smapen;
bigpen = pencircle scaled penbig;
smapen = pencircle scaled pensma;
path theu;
z11 = (-0.5*ularg,0.5*ularg+umarg);
z12 = ( 0.5*ularg,0.5*ularg+umarg);
theu = (z11--(halfcircle scaled ularg rotated 180)--z12);
draw theu;
xhei = ularg+umarg;
xcen = 0.5*umarg;
z13 = (ularg+1.5*pensma)*right + xcen*up;
z14 = z13 + 0.5*(ularg,xhei);
z15 = z13 - 0.5*(ularg,xhei);
z16 = z13 + 0.5*(-ularg,xhei);
z17 = z13 - 0.5*(-ularg,xhei);
draw (z14--z15);
draw (z16--z17);
picture tmpic;
tmpic = currentpicture;
currentpicture := nullpicture;
path horba, theci, lsid, rsid;
theci = fullcircle scaled (2*cirray);
z2 = atray*up;
z1 = z2 - 2*atray*dir(90-0.5*aangle);
z3 = z2 + 2*atray*dir(0.5*aangle-90);
z5 = barhei*up;
z4 = z5 + cirray*left;
z6 = z5 + cirray*right;
z18= (z2--z1) intersectionpoint theci;
z19= (z2--z3) intersectionpoint theci;
lsid = z18--z1;
rsid = z19--z3;
z7 = (z4--z5) intersectionpoint lsid;
z8 = (z5--z6) intersectionpoint rsid;
horba = z7--z8;
z9 = (z7--z1) intersectionpoint theci;
z10= (z8--z3) intersectionpoint theci;
drawoptions( withpen bigpen withcolor coa );
draw theci;
draw z18--z9;
draw z19--z10;
draw horba;
draw tmpic shifted (z10+umarg*(right+down)) withpen smapen withcolor cux;
% drawoptions( withcolor blue );
% dotlabels.top(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19);
endfig;
end.
|
